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INTRODUCTION 

Objective; To acquaint the student with the basic objectives 
of the course anu to conniUnn hiw thinHr^r, f^,.,-,^.i 
programming linea. The latter will be accomplished 
through a review of the atanciard flow charting 
symbols anci the introduction of new symbols used 
in the course. Simple loops will be presented for 
charting by the students. 



COURSE OBJECTIVES 

1. Exposure to techniques useful in the analysis of a program, 

a. Techniquea used in class to analyze the internal 

structure of the program will offer useful augges- 
tiona as: 

(1) Use of charts to keep a progressing 
record of ACC. MQ, SR, IR, SI. etc. 
content 

(2) Use of programmer 's remarks 

(3) Placing notes on listings to recall 
changes of data in cello, etc. 

(4) Use of flow charting 

2. An extended opportunity to read program listings 
both with tJie aid of the instructor in class and 
individually during outside study. 

3. Cain a detailed understanding of the 9IOCS package 
program. 

a. Definition 

(1) The 9IOCS package consists of a series of 
subroutines that, when employed in a 
cutitomcr program, offer a simplified 
method of attaining maximum utilization 
of all major components of the 709/7090 
system,. 

b. Basic concepts of Input/Output Control Systems 

c. Overall functions of 9IOCS followed by those 
of the individual routines. 

d. Prograumung of a sample job using this package. 

e. Theory associated with 9IOCS. 

f. Investigation of the pro; ram through the use of 
itri libtini',^ au(; as .-iociat'-'d fitnv chartt.. 
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D. FLOW-CHARTING 



1 . Basic Svmbolf 




Connector - Connect between 
one section of a flow chart and 
another. 




Decision - Result of some operation 



Program Step 



V. 



3 



Halt 



Console Operation 




Document 



Input/Output Operation 



2. New Symbols 

a. Subroutine .Symbol 

(1) Purpose 

(a) I\epro.sent an entire subroutine witli 
one block 

(b) Makej flow-l;ll;^rliu^; a common sub- 
routine each time it Is used unnecessary 
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(c) Coinn-ion subroatiuo flow-charted 
onco c.in he rolcrred to as 
required by this symbol. 
(2) -An exaniple of its use in inain program 
follows 
(a) 



Syniljolic name of aubroutine 



FORM. 
ANSWER 



Entry point on 
subroutine flow 
chart 



Page number that subroutlnea_25_ 

-"^ 



flow chart is assifjned in 
flow chart package 




Hoot 



Find Squar Ji-Objective of 



subroutine 



JL 



Store 
r ftK ult ant 
square rooi 



(3) An example of the subroutine flow-chart 
to Lie in data illu.strated in subroutine 
block followis 
(a) 

5QRT 



SQUARE 
ROOT 



id. 



SPECIAL 

INITIALIZA. 

TION 



\/ 



-^ 



PREPARE TC 
FIND SQUARii 
ROOT 



Entry point A 



.0 
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3. Student Practice 

a. Students are to use the above symbols to 

flow-chart simple problems, 
(U Suggested Problems 

(a) A4 B X C : D Find A -»- B. 
print sum using Subroutine "PRNT", 
then multiply sum by C, print 
result D using subroutine "PRNT", 
and stop. Assume "PBNT" la 
written and located on page 115. 
Una entry point Q. 

(b) Read a record from Tape Al and 
one from Bl. Subroutine "COMP" 
should be used to compare record 
numbers. This subroutine has 3 
returna to the main program 

(Al = Bl. Al -cBl, A1:>B1), If 
Al : Bl stop at 000, If Al<cBl 
stop at 001. If A 1:>B I stop at 002. 
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II. BASIC CONCEPTS OF INPUT/OUTPUT CONTROL SYSTEMS 

Objective: To fatniliariie the student with the basic concepts 

of tiiia type of programming package. Its advantages 
and basic principles of operation will be stressed. 



A. BASIC SERIAL JOB 

1. Definition of "Serial" 

a. All functions In the program are performed 

in a sequential fashion. Each major compone.it 
of the coinputer system operates individually. 

2. Following sample job is to be considered in class. 
a. Hypothetical I .ve tory Control Job 

3. Develop flow chart as a group to perform tne job Reference 
serially. 

4. Calculate and record the amount of time it would 
take to process an "update" situation. Assume 
that Model 2 tape drives are to be used in low 
density (10. 8 Ms/ record access time - 67. 2 us/ 
character). In respect to tape time, computation 
time can be ignored. 



B. TIMESAVING DEVICES 

a. Engineering improvements are not to be 

considered in this course. Simultaneous 
I/O and compute, channel trap, etc. are 
some examples. 

2. Programming Improvements 

a. Blocking 

(1) Defined 

(a) Many logical records witliin one 
physical tape record 

(2) Advantage 

(a) Tape access time now occurs 

once per block ratlier tlian once 
per record 

(3) Blocking Factor 

(a) Number of lou;ic,il records withi 
orie physical record 
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(4) Proof of Advantage 

(a) Assume a theoretical blocking 

factor of 50 for all inpiit and output 
filea. Refer to "Inventory Job" 
and note thiat 50 items conld now be 
proceesed in the time It took one to 
be performed serially. Additional 
cotTipnting tiiTie is necessary but 
relatively small, 
b. Buffering 

(1) "Buffer" 

(a) Intermediate storage area where 
input/output data is held till 
operation on it is required. 

(Z) Swing Buffering 

(a) Defined - Two bviffer areas used. 
One being fiUod while content of 
other is being used. 

(b) Advai tage - This, together with 
blocking, is an aid toward approach- 
ing our ideal situation of having all 
major units of the computer (CPU, 
I/O) operating continuously and 
simultaneously 

(c) Depending on the relationship 
between comp\ite and I/O time, it 
is still possible to become I/O 
bound (CPU waitit.g for data). 

(I) Adding additional buffers to 

be filled in advance could 
relieve this situation. 
However, core capacity must 
be considered. 
(3) Pool Buffering 

(a) Dcfi:;ed - Useful when multiple 

files of varying activity are employed 
in a program. A buffer pool consists 
of a preset number of buffers. Any 
unused buffer is available to one of a 
preset number of files "attached" or 
assigned to the pool. Any of the 
files may use more tlian one buffer 
if necessary. The balance of the 
number of buffers within the pool 
assipnod to each of tiie corresponding 
files is deterinined by the relationship 
of file activity. If the CPU demand 



for data transfer to or from 
a particular file is high, many 
b'.iffers will be "in use" by that 
file. The other files sharing the 
pool will employ as many of the 
remaining buffers as their activity 
demands. 9IOCS automatically 
rnoniiora and adjusts tiiie balance 
as req\iired. 

(b) Advantage - A maximum avail- 
ability of buffers to a file when its 
activity is high with a minimum of 
storage allocation. 

(c) Pool bufferiiig is the basis of the 
9IOCS paclcago. 

(d) Note Hil» omnnl i f -■» to<4 r^t-nr,^^ ^^^..^ t .. ~ 

necessary to maintain this type of 
operation. Through the use of 
9IOCS, this operation becomes 
available to the customer at any 
time in a program through a eimpl-o 
calling sequence composed of a 
TSX followed by a series of control 
words. In addition, IOCS offers 
a'ltomatic redundancy recovery and 
end of file routines, together with a 
sijnplifiod method of operating on 
I/O data. 
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Ill, FUNCTIONS OF MINIMUM 9IOCS ROUTINES 

Objectives: To point out the various fanctious of the 
individual 9IOCS routines 



A. GENERAL 



Ijf — tl. — .1 — r ii: a.: i-T^ir^j -vvr* 



Definition of "Calling Sequences" 

a. TSX to Bubroutine and aasociatod control 
words that follow 

b. State parameters 



B. DEFINE 



1. Pool Makeup Ref. 

a. 2 pool control words per pool 

b. 2 buffer control words per buffer 

c. Formula to find pool size. M (N + 2)+2 » 
NUMBER OF CELLS 

M = number of buffers in pool 
N = number of cells in each 

Note: Do not go into coatejit of control words 
at this time. 

2. "Define" function 

a. Form nnnl 
J 

3. Consider "Define" calling sequence Ret. 



C. ATTACH 



1. "File" 

a. Data associated with some I/O device 

b. Types of files 

(1) Input (I) - Each type I file requires 
one buffer from pool. One physical 
record is read in per buffer. 

(2) Output 

(a) Partial Output File (P) - Each 

type P file req>iire.s at least one 
buffer at all times. Buffer can 
be filled by individual logical 
records. vVhen full, it will be 
written as physical record. 
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(b) Total Output File (T) - All 
typo T files attached to a 
particiJar pool require one 
buffer at all times. Entire 
physical record must be placed 
in buffer then written immediately, 
c. File grouping 

(1) Immediate 
(.1) Regular Input /Output file 

(2) Reserve (Discuss briefly) 

(a) Special purpose files 

(b) Files specified in groups 

(c) Muat specify number of buffers 
to be reserved per group 

(3) Internal (Discuss briefly) 

(a) Files contained entirely within 

core. No I/O unit asEOciatod 
with them. 

Note: From this point, emphasis will 
be placed on Immediate files. 

2. Functions of Attach 

a. Tie all files uaing a specific pool to the pool. 

b. In tlie case of Immediate files, "Oi;.en" or in 
other words, initiate I/O operations for tliat 
file. 

(1) Rewind 
(Z) Set Density 
(3) For input files read in first physical 

record. 

3. "Attach" calling sequence 

a. File List 
(1) List of files to be attached to the 

same pool 

b. Consider its calling Bcquence Ref. 

4. Internal and Reserve files must be attached and 
then opened separately thru use of the Open routine. 



D. READ 



Function 

a. Transmit words from buffers to working 
storage. 

b. Locate words within buffers. 

c. Fill additional buffers as required. 
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Ref. 



Calling sequence 

a. Con9i<ler PZE words bit do not d-A/ell on 

EOB at this point. Ref. 

b. Note the functio,! of ti-t command list. 
The individual comniande will be covered 
later. 



WRITE 

1. Function 

a. Transmit words from working storage to 
buffers. 

b. Locate empt/ cells within buffers. 

c. Write out buffers as required. 

Z, Calling sequence 

a. Consider PZE word but do not dwell on 

EOB at tliia j>oint. Ref. 

b„ Note that a command list is also used 

as part of this calling sequence. 



COMMANDS 

1. Function 

a. Control the transfer of words between 
buffers and working storage. 

b. Locate specific words within buffers. 

2. Format Ref. 

a. T)rpe of Control 

(1) C - Covint Control 

(2) R - Buffer Control 

(3) S - Special Count Control 

b. Function to be performed at completion of 
command. 

(1) P - Proceed 

(2) T - Terminate 

(3) D - Terminate and Truncate 



c. N - Non-transmitting - will be covered in 
detail later. 

d. * - Indirect Addresf.ing 

e. A - Address 

f. m - word count 
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3. Transrnittinti; comjnaiuJH - Tr.i.iemit dat.i between 
b\iffers and workir^;^ ?toraj:,'c. 

a. Count Cu-.trol - lOCP, lOCT, JOCD 

b. Buffer Control - lOIlP, lORT 

c„ Special Count Control - lOSP, lOST 

d. Transfer and Co'itinue Command 

Liat - TCH 
(1) Note thnt the exit from the IOCS 

roitine I '^ to the location after the 
first TCH command in the list. 

4. Non -transmitting commnnda 
a. Functions 

(1) Locating - Means of processing 
information in buffers. 

(a) Determining the location in a 
road buffer of the first word 
in a group, 

(b) Finding buffer space in which 
to place information to be 
written. 

( 2 ) Ski ppi n f; 

(a) Omission of information "read" 
as input 

(b) Informing IOCS of the actual 
len/,'th of an output record 
already placed in tJie buffer via 
conventional programming. 

(3) Skip]>ing or locating determined by 
condition of EOB switch in calling 
sequence, 

(a) EOB equals zero - signifies skipping 

(b) EOB is not equal to zero - Hignifies 
locating 

b. Conditions 

(1) No single coinmand can locate words in 
more than one buffer. 

{Z) If reading and the EOB switch is not 
equal to r.ero, words located are 
considered used when the file is next 
referenced by any IOCS routine. There, 
fore, all information located will be 
retained until then. 

(3) If reading and the EOB switch is equal to 
r.cro Bkippinc has been indicated; tliere- 
fore, it is not nccetisary to retain the 
information a.s above. 



Ref, 
Ref. 
Ref. 

Ref. 
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(4) In writing the same conditions hold 
trae aa for I, Z, and 3 above except 
apace is located rather than data. 

Note: Z, 3, and 4 above would apply to 
non-n type commanda only if an 
n-ty|)c command had been encountered 
earlier in the same comm.and list, 
and acted on the samo buIXur. Otherwise, 
-..- ^«..^.^.„., v«. mwi ^\jt} nwnuii luiH no eiieci, 

(5) Information or space located by a 
single IOCS command must be in 
sequential cells; therefore, the 
execution of a count command interrupted 
by the end of buffer condition Ib dis- 
continued, and EOB itself is used as the 
exit of transfer address. An end of 
buffer condition is encountered when all 
the cells in the buffer are full and the 
command word count has not been 
satisfied. 

N Type Commands 

(1) Count control - lOCPN, lOCTN, lOCON Rt!f„ 

(2) Buffer Control - lORPN, lORTN Ref, 

(3) Special Count Control • lOSPN, lOSTN Ref. 



G. CLOSI.-. 



1, Function 

a. Terminate activity on file 

2. Calling sequence Ref. 
a^ General layout 

b. Types of closing 

(1) PZL - Rewind-unload, t:OF written 
if output 

(2) PTU - Rewind, EOF written If 
output 

(3) MZi; - No rewind, EOF written if 
output 

(4) MON - No rewind, no P OF written 
Co Closing more than 1 file 

(1) Uses file list 
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IV „ USING 9IOCS IN A IMIOGHAM 

(objective: Scttinj^ up the theoretical invrntory job discuBsed 
earlier wiij f;uniiuirize the Btudent with the use 
of 9K.C.S both ill thf coding and ojjerational aspects 
of a job , 



A PH YSIC A i. AS 1^ r C TS 

1 „ System Tape 

ao Contains IOCS routines 

' b, Normally mounts on Al 

<i. Object Proj;ram 

a. As Card Input 

(1) Deck Layout Ref. 

(a) Control Cards - Furnish job 
and file informiation 

(b) L-oader 

(c) Binary Program 

b„ Can also be t^pc input if desired. Layout on 

tape same as above. 



B. OPERATIONAL ASPECTS 

1, Preparing System Ta[)e 

a. Items furnished by Applied Programming 

(1) Binary System Tape Writer Dccl<. 

(2) Two file tape 

(a) File 1 - Symbolic version of 
IOCS, suitable for tape to 
card convcrnion. 

(b) File 2 - Assembly liBting. 

b. VVritinj4 system tape 

(1) Ready Tape \\ riter 

(2) Ta|)e drive number placed in address 
of keys 

(3) J^oad Cards 
V 

2. Running the Object Program 

a. Set np 

(1) System l.ipe ready on Al 

(2) Input and Ouljnjt Filcn mounted 

(3) Control cards and object [)rOj;ram deck 
ready in card reader 

(4) Sense Switch 1 down signifies card in[)ut 

(5) Deprcs:; Load Tape 
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(1) 


U) 


(3) 


(4) 


(5) 


(6) 


(7) 


(8) 


(9) 


(10) 



Visual Sequfncr of Operation 

Portion of System Tape Loaded 

Control Cardfi Read In 

I'iBt of files to be mounted is printed 

Program Stop - Operator Action Fause 

Mount tapes if not mounted already 

PrcBS start 

Remainder of Syetcm Tape loaded 

(IOCS routines) 

System tape rewound 

Object proi;ram loaded 

Object program executed TSXing to 

IOCS routines in memory when required 

PREPARING THE OBJECT PROGRAM DECK 

1. A brief consideration of File Control Blocks is 

necessary at this time, 
a. Block of IZ cells jier file 

b„ Function is to keep track of file conditions. 

c. Blocks for each file must be grouped together 

in sequential locations , This area is referred 

to as the File Block, 

Z. Control Card Preparation 

a. Typos of Control Cards 

(1) Job Card 

(a) Function - su[)i)ly details of job 

(b) Must be first card of deck - 1 
per deck 

(c) Layout - Consider fields of card 

(2) File Card 

(a) Function - su[)ply details of a 
particular file for file control 
block 

(b) One per file, Cards for each 
file grouped together following 
"Joii" card 

(c) Layout - Consider fields of card 

(3) Date Card 

(a) Function - su;)ply job date 

(b) One per dock - follows "File" cards 

(c) Layout - Consider fields of card 
Note: As control card fields arc considered 

unfamiliar terms v-ill be encountered, 
I3() not dwell in these areas at this time; 
they will be covered as the coarse 
progresses , 
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3. Object Deck F-"»repa ration 

a. The pro;;ram must be now written and 

assembled. 



D. WRITING THE PROGRAM 



"inviTitor y" ^Ou" iluw Li'iart tu uriiig 
back to mind job objcctivee and floWo Ref, 



Z. Go through program listing; dwelling on the 

function of each step, h.mphaaie need not be 
placed on CPU operations (number conversions, 
comparisons, etc.). Rcf. 
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Dt:TAILf:D INVLSTIGAnOK OF THE 9IOCS PROGRAM 

Objective: To offer to the student a detailed understanding 
of the progranirninj^ uKcd to allow the 9IOCS 
package perform the objeclivcB covered^ 

The program listings and associated flow charts 
will be discuBsed both froni a functional and 
codiny viewpoint. Advanced theory of the internal 
workings of the proyram will be presented where 
necessary. 



A. SYSTEM TAPE LAYOUT 

1. Single file consisting of 6 records 

a. First three read in on first select of 
system tape 

(1) Record 1 - Self-loading IOCS loader 
(a) Loads itaelf and rest of systenn 
tape as required 

{Z) Record 2 - I/O Executor 

(a) Section of program which 
contains the routines and 
control areas (called Unit 
Control Blocks) that have 
direct communication with the 
I/O devices 

(3) Record 3 - i'rfi>rocessor 

(a) Routines which read in the Control 
Cards, interpret the information 
they supply and place data in the 
various control areas for future use, 

b. Any number of lafit three read in on second 
and final select of system tape. They arc 
selected as requested in Job card. 

(1) Record 4 - Miniinum IOCS 

(a) Routines that initiate the execution 
of all IOCS subroutines discussed 
3o far in course. 

(2) Record 5 - Basic IOCS 

(a) V, ill be read-in in addition to 
record 4 if an advanced operational 
IOCS is desired, 

(b) Contains additional routines to be 
discussed later , 

Join, Copy, Stash, Rew, ^Vef, Bar, 
Bsf, Ckpt 
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(3) Record 6 - Label lOGS 

(a) Will be read-In in addition to 
records 4 «. § if a full IOCS 
paekap,© i4 desired. 

(b) Sttppli«,^ additional routines 
to handle labeling operations 
o( input/output files 

Mote: The larger the system used the 
more core area consumed. 



B. SYSTEM TAPE WRITER 



Ref. - 



1 r • .u . Foil 50.06.24 

1. tvonsuier theory of operation of Writer. 

This is neceddary for understanding loader 
operation. 

a. When writing a system tape whenever a 
program break, other than that for a transfer 
caru, is encountered in load addresses, a 
command (lOCP) is formed to load the 
previous sequence of instructions from 

the tape. This command is then inserted 
physically into the cell before that sequence. 

b. When a transfer caro is encountered an 
lORT is formed and placed in the cell 
located physically before the last sequence. 
A record is then written comprising all 
aata read in since the initial start or last 
transfer card. 

c. These commands will be used to load the 
program from tape. 

d. A transfer card followed by a blank card 
will signal the end of the writing process. 
An end of file mark is written and tape 
rewound. A read check follows. 



C. IOCS LOADER 

1. Go through the loader listing step by step. 

D. PREPROCESSOR 

1. Consideration of the Unit Control Block is necessary 

at this time. 

a. Block of 3 cells each, 1 per I/O device on 

system. 
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b. Contained in I'xi-cutor srction 

c. Function is to kcc}) track of operation of 
its associ.itec] I/O device, { Fajic position, 
errors encountt>rrd, etc.) 

d. Divorces the physical I/O device address 
from lo ;ical addresses used when writing 
the pro-ram. Reference to a lo);ical unit 
will eventually cause program reference 
to a UC\^ which will then supply a physical 
1/ address . 

2. Usinj.; appropriate flow-charts jo 

throu ;h this portion of the program. 



K. BUFFF RING ROUTINES 

1, Advanced IOCS theory of internal operation 

a. Chaining 

(1) Necessary to keep track of location 
of bufferf^ in pool since each can be 
in different stages of use (filling, 
full, empty, etc.) by any of a number 
of files . 

(2) Major chains Ref, 

(a) i'ool Chain--Circular typc-- 
used to keep track of buffers 
available for use in pool, 

(b) Request Cliain- - First-last type-- 
iised to keep track of priority of 
buffers stacked to be filled by 

a particular I/O device in the 
case of input or written in the 
case of an output file. 

(c) Sync Chain-- First-last type-- 
used to keep trac)<. of priority of 
full buffers stacked waiting to be 
emptied for an input file. Sync 
chain not used for output file. 

(3) Other chains Ref. 

(a) Regen Chain-- First-last type-- 
used to keep track of buffers 
being used by internal files. 

(b) Hold Chain--used to keep track 

of buffers in hold status (referenced 
by "Tm" type cominand) 

(c) Output File Cluiin-- r.ither novel 

in that it keeps track of output files 
attached to a specific pool. 
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b. Advance of buffers through various cliains Ref, 

(1) Input file 

(a) Location of empty buffer found 
in Pool Chain 

(b) Location of buffer placed in 
Request Chain to be filled 

(c) Vhen full, location of buffer 
transferred to Sync Chain 

(d) Vvhen its data ia required, 
location of buffer is placed in 
Use status 

(e) When its data is used, location 
of buffer placed back in Pool 
Chain 

(2) Output file 

(a) Location of cnnpty buffer found 
in Pool Chain 

(b) Location of buffer transferred 
to Use status where it remains 
till full 

(c) Location of buffer then transferred 
to Request Chain to be written out 
on output device 

(d) J.ocation of buffer then transferred 
to Pool Chain to be used again 

c. Various control blocks 

(1) Cover in iletail the content of the three 
major control blocks used 

(a) pool control words 

(b) file control block 

(c) unit control block 

2. Define routine 

a„ Using appropriate flow-charts, listings 

and work sheets go through this subroutine. Ref. 

b. Cover the use of the communication re:^ion 

transfer vector. 

3. Attach 

a. Using appropriate flow-charts, listings, 

and work sheets go through this subroutine. 

(1) Consider function of each subroutine 
on ov«-rall flow chart first. 

(2) Use listings and individual flow charts 
to cover carli nrnall routine in detail. 
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(3) Do not go into the details of the 
trapi)ing st-quence at this time. 
Note: Adhere to conditions set forth on 
overall flow chart, 

4. Read 

a. Using approj)riatc flow-charts, listinge, 

and work sheets ^o through this subroutine, 

(1) Consider function of each subroutine 
on overall flow chart first. 

(2) Use listings and individual flow charts 
to cover each small routine in detail. 

(3) Usin;'. read trapping overall flow chart 
consider function of each subroutine 
in sequence, 

y'i I \joi- ii»i.iiil;s arici inuiviauui iiov/ charts 

to cover r.ich small routine in the 
trappinsz sequence. 

Note: Adhere to conditions set forth on 
overall flow charts, 

5. Write 

a, Uflin^ appropriate flow-charts, listings, 

ivnd work sheets :o through this subroutine. 

(1) Consider function of each subroutine 
on overall flow chart first. 

(2) tise lifltini^^s and individual flow charts 
to cover each small routine in detail. 

(3) Usin<; write trapping overall flow chart 

in sequence. 

(4) Use listings and individual flow charts 

to cover each small routine in the 

trapping sequence. 

« Note: Adhere to conditions set forth on overall 

ft 

flow charts, 

6. Close 

a. Using appropriate flow-charts , listings, 

and work sheets go through this subroutine. 

(1) Consider function of each subroutine 
on overall flow chart first. 

(2) Use li8tin,;s and individual flow charts 
to cover each small routine in detail. 

Note: Adhere to conditions set forth on overall 
flow chart. 
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VI. BASIC IOCS RouriNrs 

Gbjectivcs: To faminarize the Btudcnt with the function ol each 
of the adclition.il routines of the Basic Byatem. 

A. JOIN 

1. Function 

a. Connect two pools to form one of increased 

capacity 

2. Restrictions 

a. Duffere of each pool must be of same siic, 

b. Pool Z may no Ion ;er be referred to in 
any other calling fiequence, 

3. Calling Sequence Ref. 50.06. 17 

B. COPY 

1. Function 

a. Transfer data from an input to an output 

file without word transmiflsion, 

2. Restrictions 

a. Both files mu.it be attached to the same 
pool. 

b. All words in the same buffer with and 
preceding the last word located are 
included in the output, 

c. All words in the same buffer subsequent 
to, the last word located are not included 

in the output; furthermore, they will behave 
as skipped when File 1 reading is resumed. 

d. If more than two buffers are involved, an 
intermediate buffer is included in the output 
only if at least one word within it has been 
located by a non-transmitting command. 

Foil 
3. Calhn^ Sequence Ref. 50.06.22 

C. STASH 

I. Function 

a. Transfer information between an internal 

file and some other file. 
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Reat net ions 



Bot(i I'ilfB ni'iMt be aHactird to the same 






4 iierniissable tyiJCB 

(i) '^'ypt' i - i'">le i iR an internal out[)ut; 
File 2 is a regular output. 

(2) FvDC Z - File 1 JH a rpiriilar- inr-vuf- 

r'ile 2 is an internal output, 

(3) Typo 3 - File 1 is an internal input; 
File 2 iB a re^jular output. 

(4) Type 4 - File 1 is an internal input; 
File 2 is an internal output. 



Calling sequence 

a. Consider NTS exit 



Ref, 



n 



U' t fT 



1, Inunction 

a„ Write an end of file mark 



2, Calling sequence 



Ref. 



E. RE' 



1. Function 

a„ Rewind the file 



Z. Calling Sequence 



Ref. 



BSR 

I. Function 

a. Backspace 1 record 



2. Calling Sequence 



Ref. 



DSF 



1 , Function 

a. Backspace specified number of files 



2, Calling Sequence 



Ref. 



05.03.2? 



VII, AD DI r I UN A L I'' K A T U K 1 S 

Cbjectives: To acquaint thr student ^.Uh auduional functions 
of 91 DCS. 



A. LABELING 

1. Provides a tape labeling eystem which can be 

employed if the use of labeled files ia desired. 



B. CHECKPOINT AND RESTART 

1. Provide reference points to which a program 

mav return for restiir* 

I. F^rovides a means to perform an operator 

initiated restart . 



PRINTING WESSAGKS ON-LINE 

1. Provides a simplified method of printing meBfiages 

on line through urc of the M W R routine and its 
associated calling sequence.. 
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ASSIGNMENT // 



INTRODUCTION 



Objective: To review the basic objective.:; of th_ 

of the flow chart symbols presentea uuring the lecture. 






A. Review the material presented by reading Part I of Lecture Summaries 
of the Stuoy Guide. 

B. Study Questions 

1. List three techniques that can be used in the analvsis nf a 

prograiTi. 



c. 



Name three advantages offered to the programmers by the use 
of 9IOCS. 



a. 



c. 



3. Why was the subroutine symbol aaopted? 



4. In the following illustration aetermine the purpose of each of the 

indicated areaj. 



-k xxxx 



xx 



XXX^ 



5. Flow chart the following problem: 



_ ax + b 
ex + d 



ri c no in 



Asdignnjent # i _2.. 



Print the result using subroutine '^PRINT" located on 
page 15 ol the How chart package. Entrance to the sub- 
routine is at point D. Halt on return to the main program. 
Assume a, b, c, a and x are contained on separate input 
devices - 



rm OT, ^n 



B. 

1. 



iT- o b ]. G N Iv i hZ N T y/ 1 



a. Keep account of the changing conditions of all major registers 
unt. cells. 

b. Keeping notes on listings. 

c. Examining programmers' remarks. 

d. Use of flow charts, 

a. Improved efficiency by minimizing the time utilized by C, P, IJ. 

waiting to receive or procec.s I/O ciata. 

c. Automatic redundancy recovery routines. 

d. Built-in labeling, checkpoint, restart and message writer routines, 

To provioe a means of referring to a closed subroutine without the 
necessity of flow-charting it each time its use is encountered in a main 
program. Using this method it is only necessary to flow-chart the 
subroutine once. 

a. Symbolic name of subroutine 

b. Page number 

c. Entry point 

d. Function 
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ST/ RT 



-JN^-^ 



HcaisekeepinH 



I 



Read A 



_^iL 



Read B 



V. 


N 


C— 








N 



ReadC 



1 1 * — 



Read D 



^ 



J^ 



Read X 



Multiply 

j C by X 



Add D 



Save Result 



1 



Multiply 
A hv Y 



Jk 



Add B 



I 



Poiition 
Result 




Print 



r 

V 



H->1r 
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ASSIGNMENT //2 



BAblU CONCEPTS OF INPUT/OUTPUT CONTROL SYSTEMS 
Objective: To review and reiniorcc the lecture on Basic Concepts of Input/ 






A. Review the material presented by reading Part II of Lecture Summaries 
of the Study Guide. 

B. Study Questions 

1. Name two programming improvements that can be used to improve 

T/O r» f f i n i t.n/'ir 

a. 



b. 



2. What is a buffer? 



3. List two types of buffering. 



b. 



4. What is a disadvantage of assigning a fixed number of buffers to each 

file of a job which involves varying file activity? 



5. How does pool buffering overcome this? 
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STUD Y QUES TION ANSW ER S 
ASSIGN MI':NT ifZ 



B. 

i. a. Blocking 

b. Buffering 

2. Intermediate storage area where input or output data is held until 
operated on. 

3. a. Swing 
b. Pool 

4. At one time file A might require the use of one buffer while at others 
it rriipht require a maxiinum of -six, Assuminf file E's demands are 
iaentical to that of file A but 180° out of phase, a fixed buffer aystem 
would require the use of a inininium of 1 2 buffers to guarantee 
maximum efficiency in respect to tinrie. Core storage area would be 
sacrificed. 

5. Assuming the use of pool buffering rather than fixed in answer 4 
above, a maxiinum of 7 buffers shared by both files need be alotted. 
When file A's activity is low it would use one buffer from the pool 
while file B would have six at its disposal; thereby, being able to 
satisfy its greatest demand. We have therefore achieved maximum 
timing efficiency with a rrsinimum of storage allocation. 
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ASSIGNM ENTJj 
- ■-■x,v,4.iv/i,)o v_/r iviiiNiMurvi VIUCS ROUTINES 

Objective: To assign reading material which will review and reinforce the 
lecture on Functions of Minimum QTOrc; R^„»;„,.: ^ 



A. 



Review the material presented by reading Part III of Lecture Summaries 
CI tne Stuay Guide. 



B. Read and study page; 
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ASSIGN MEN !■ -'/4 



USING 9IOC5 IN A PROGRAM 



Objective: To assign reading material which wiU review and reinforce the 
lecture on Using 9IOCS In a Progranj. 

A. Review the material presented by reading Part IV of Lecture SuTtiniaries 
of the StU'iy Guitie. 

B. Read and study pages through of the 9IOCS Reference Manual. 

C. Go through the sample program listing written in class and justify in 
your own mind the purpose of each step. 
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ASSIGNMENT #5 
DETAILED INVESTIGATION OF THE 9IOCS PROGRAM 



Objective: To offer suggestions towarci reviewing and reinforcing the lecture 

on Diaf-a i I f>ri Inxro <^H r:rtH r\n r^f f K <^ OTr~>/^C TD-^- . 

A. Review the material presented by reaaing Part V of Lecture Summaries 
of the Study Guide. 

B. Ujing appropriate flow charts, listings, and work sheets review the 
aread of the program us they are presented in clads. 

C. Study Questions 

!• a. How many records are present on the 9IOCS system tape? 



Name them. 



What id the purpose of the Unit Control Blocks? 



3. What is the purpose of the File Control Blocks? 



4. List the sequence of progression Lhrough the various chains for 

an input file (Non-n type commanus executed) 



E>U. OJ. j' 



Assignment #5 



5. Lidt the sequence of progression through the various chains 

for an output file (non-n type corrniiands executed) 
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c. 



STUJJY QUESTION ANSWERS 



ASSIGNMENT #5 



1. a. Six 

b. Loader, Executor, Preprocessor, Minimum, Basic, 

Label 

2. Keep account of the conditions associated with a particular 
unit. 

3. Keep account of the conditions associated with a particular 

filn. 



4. Pool, request, sync, use, pool 

5. Pool, Use, Request, Pool. 
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ASSIGNMENT #6 



BASIC IOCS ROUTINES 



Objective: To review the basic loCS routines and offer a means of gaining 
experience in the writing of a program using 9IOCS. 

A. Review the material presented by reading Part VI of Lecture 
Summaries of the Stuuy Guide. 

B. Write a program using 9IOCS routines, including Message 
Writer, to produce a demonstration printout. A sarriple 
printout and job specifications follow. 
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Word 






^^) ^t"^ . , 8, 9, 10^ iij 12, 13 U, 15, 16 i7 13/ 



CITY 



STATE 



CAPI- 
TOL 



N!ck- 

Namc 



Flower 



BCD-MOD 4-HI 



e city)/ 



1 Logical Record Blocking 
Factor of Five 



-> 



MacliJae «nd Program 



■/■ 



/ 




CoTKole kcy« 
place idea. # of 
deiired city In 
BCD into addrcM 
portion C prcM 
ttart 



OCTOD^IR 21.19C1 

UI,I .^A T!l!% 70?0 AT Tlli OiiPAV.'^^irr 07 i^'UC/iTIOA - 



?0Uf;':':-vjPGIc,:LY. 



YOU liAV:; S,a.5;CToD 5in>:i:;GIiAr! 



,A!..\j;A:fA 



i;oR Yo:m inr-uiRy, 



scKi: ct: Ji':R.M, statistics 

Trui: Ar;:A or T;ii gtat.'. ig 51^:00 Gnu,\R" i:d.;:s. 
la:-:}'5 M3A 51078 Goij. '?:;:; yn.i.s. 

W/iTH;R ARi^A 531 3nu;,":i MTL,:S. 

C.\LLF^) COTTOn ST/tC: ,iT.> CAPITOL 15 IIOKTfXJIKRY 

t::.; statj n^oviini I3 T":i:^ 'XilovJ^^o?) 
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ASSIGNMENT ^7 



ADDITIONAL. FEATURES 



Objective: To offer suggestions toward reviewing and reinforcing th. 1..f.,.. 
on Aaaitional Features. ~ " -~^--v- 

A. R^^i-^^Jhe nnaterial presented by reading part VII of Lecture San.xr,arie. 
or the Stuoy Guide. 

B. Rcaa the following sections of the 9IOCS Reference Manual. 



LABORATORY PROJECT //i 



RUNNING A PROGRAM USING 9IOCS 



/^, u ; rs --»•-■.. ^. . T' - c. 



v^.jj>iv.,uivc:. xu luiiubn Lxic atuuenc wnn an operator's view ol the running of 
a program utilizing 9IOCS for Input/Output control, 

A. Procedure 

1. Run program written in class, observing flow and printouts, 
etc. 

2. Misn1.irf» rnntrril rr^rn^ nnrl /-nK :; <■. ■v.rfi> r\ i ~, i-.-,-, n r, n ^ „-„;„i.^,.* ^ 

t *— w ^ w V, ^ .^ «*«_t ^IX VJi-j l,4\, pX i lit*-/ Vlt O • 

3. Display or dump pool control words, file control blocks and 
unit control blocks. Observe their formation at various points 
in the program. 



LABORATORY PROJECT //^ 
DIAGNOSING 9IOCS PROGRAM FAILURES 



. < ..^ 



Objective: To offer t" ♦^f* QfiiX«»,f tUr, ^ ^. 

tu' oTr^^c " . '"" "Ft'"^'-"'"ty lu gain experience using 

the VIOCS program as a diagnostic on the 7090 system. 



A. Procedure 



The lab instructor wiU place a bug patch card in the 9IOCS System 
Tape Writer deck. Write a sy^em tape and then uaing it execute 
the sample job. With the aid of the flow charts and listings inves- 

tigate the resultant failure and determine the lorafir^r, «f fh» ^^ _. 

step causing the problem. 



SAMPLE PROGRAM 

A. Attached is an example proRram using 9IOCS. For purposes of 

illustration a hypothetical inventory control job is considered. Two 
input tapea are invoiveU iu Llisj operation. The first is an "Old Master"', 
the second a "Transaction . The format of these and the two output 
tapes is given in the attached as Tape Layout. The outputs consist 
of a "New Master" and an "Order" file. The overall objective of the 
operation follows: 

1. Compare Old Master and Transaction item numbers. 

a. If Old Master item number is greater than Transaction 
item number this is an insertion. Form New Master 
item group from Transaction. 

b. If Old Master item number is smaller than Transaction 
item number, no change is to be made to this Old Master 
item group. Transfer Old Master item group to New 
Master. r 

number, update quantity on hand. This operation consists 
of the addition of Transaction items received to Old Master 
quantity on hand. The quantity in the Transaction items sold 
field is then subtracted from the sum to form the new quantity 
on hanci. Transfer the Old Master item grotp with new 
quantity on hand inserted to the New Master, Handling of 
the Order file remains. The calculated quantity on hand is 
compared to the Old Master ordering point. If it is equal to 
or less than that specified in ordering point an Order 
item group is formed and transferred to the Order tape. 
A logic diagram ana assembly listing of the program is 
attached. 



/OLD 

MASTTflj 
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AND 
PROGRAM 
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ORDER 



M> T 



rite Trans on 
New Master 



Read Traasaction 



1^ On hanJ bor der pt, 



INVENTOR^ qONTROL 

START 



T 



Housekeeping 



(READ 
^ Trans 



K- 



( Read Master \ 

V . ^' 
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COMPAPJB ITEM 
NUMBERS 



RESULT "^^ \MJL. 



V 
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Quantity 



i 

I 
Write "new 

master" 



^„i„ 



Compare "on hand' 
to "ordering point' 



Write Master on \ 



v_ 



new master 



Result 



( Write "order' 



On border pt. 
On Hand = order pt. 

'J 



TAPE lA.-iOirT 



OLD MASTER & NEW MA STEP. 



iiy r 



Record 1 
fXE <! G .<0 UPS / RECO RD / 7 / / 



^50 ITfMG^ .^ , 

' -^ -^ .--'^/Vt350 ,^ V,^OR DS)/// / 

Iterr. Group 1 lujm Group 2 

\vd 1 2 3 4 5 6 7 

\ I'M II r 
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' y^ y / / / 



/ / 
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3 CD 



Word 1 = No Word 5 

Word 2 = Karae Word 6 

Word 3 = Color Word 7 
Word 4 = Weight 



- Price 

Order ?t. 
= Ouant. on hand. 
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/ 



in 



Word 1 = No Word 5 

Word 2 = Name Word 6 

Word 3 = Color Word 7 

Word 4 - Weigli Word 8 



= Price 

= Order Pt. 

- Items Received 

= Sold 



mMMMMim 



\ 



1 Item Croup/Record {6 words) 



1 2 3 4 5 6 
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i 



12 



13 



Word 1 = No Word 4 - WeigM 

Word 2 = Name Word 5 == Price 

Word 3 = Color Word 6 == Order Pt. 
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NCra: All tap.Ei BCD 
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^£'^^ MASTER FILE CONTROL uLOC?; 
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2 FILES OF LIST 1 
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POOL AND Oc^EN IT 
1 FILE OF LIST 2 
mTTACH order file Tu TINY POOL 
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VI. TRAP SUPERVISOR WRITEUP 



Unit Control Block 



^^y "''"'" ""^'^^ '' ^'^ °^ ^^"^ standard configuration is represented in 
lOEX by a J-wcrd Unit Control Block (UCB). The formot of this block is oi 



fol 



lows: 




Word 1 A - Unit availability flag; 

- unit has been made available for use. 

1 - unit is nnt nvniloklp /Tk--, t„,t f_. it-r. _. i-.- . , . . 

_ i^,e. y , ne ito. lui ihis conaiTion is made In the 

ACTIV routine and in the non-data select routine, NDSEL) 

/^ _: Unit attachment flag (A = 1) 

Restart repositioning control flag (A =0) 

Unit attachment flag — 

- unit is connected to this channel ond can be made available. 

1 - unit ii not attached to the channel. 

Restart repositioning control flag: 

- unit will be repositioned when restarting. 

1 - unit will not be repositioned when restarting. 

T - Unit type (for tapes only): 

0- Model II 729 
1 - Model IV 729 

Unit address - address of the j/O unit (if the unit !i a fape, fhe 
oddress Is the BCD mode oddrejs, e.g., 1201). 
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EOT - End-cf-tape flog: 

- no end-of-tape hoi occurred on thli unlf . 

1 - an er,c-of-fope hof occur-ed while writing on thi» unit. 

DO - Tope deniity ot the load point; 

- low denilty . 

1 - high denilty. 

Dl - Density at the current tape poiltlon: 

- low denilty. 

1 - high denilty. 

V/ord 2 OP- Select Typo: 

- read. 

1 - write. 

RS - Permcpent redundancy mesiogo control: 

- If a permanent read redundancy occuri, a mesioge It printed. 

1 " i I u permonent reoo redunooncy occuri, error rriessoge li Dy-paiied. 

SEL - Locctlcn of the data leloct routin* 

Word 3 N - Nolle record flog (reading only): 

- no nolle recordi have been detected while reading. 

1 - one or rnore noiie recordi hove been detected while reading. 

File count - Nurr^ber of file morki written on or read from thli tap*. 

Record count - Number of recordi which have been written on or read from 
the current file . 



Noteii 



a . The EOT flog and noiie record flog are turnad off only when the tap« It 
returned to the rewound position. 

b. The record count It complemented when backipacing from an end-of-fljt. 
A backipace which repoiitloni In front of g file mork glvei o record count 
(18-35) of 777777g for example. V/hen writing occun from luch a poiltlon, 
the two low-order tag biti ore cleared, to prevent o ipurloui Increow In tht 
file count. 
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Doto Transmission and Priorities 

The initioficn of dato transnnission operations for o unit, and the maintenance of 
ony request queue for the unit, is the responsibility of the user of lOEX. These 
functions must be provided in a subroutine, SEL, which is entered twice for eoch 
data tronsmission operation which results in a trap. The colling sequence is: 

TSX SEL, 4 
Return 1 
Return 2 
Return 3 

For either entry: 

C(IRl) = - (channel index: = A, 1 = B, etc.) 

'^21-35 " oddress of the UCB 

Trapping is disabled before entry to SEL. 



A- Select Entry. 

If the sign of the accumulator is plus on entry to SEL, the routine must initiate 
a dota select operation which will couse a trap. Return 1 is always used with 
SEL . The sign of Word 2 of the UCB must be set according to the operation 
(+ for RDS, - for WRS) . 

If the operation is RDS, redundancy checking can be suppressed by 

STZ RCTX, 1 

B. Posting Entry. 

If the sign of the accumulator is negative on entry to SEL, a trap has occurred 
OS the result of the previous select for the unit. The following information it 
furnished: 

1 . Sense indicators: 

S - Noise record flag 

1 - the record was not on apparent noise record. 
- the record was an apparent noise record. 
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1 - End-of-file (leod) or end-of-tope (write). 

- no end-of-file or end-of-tape. 
i - end-of-fiie or end-of-tope. 

2 - Permonent redundancy (reod only) 

- no p>ermanent redundancy. 

1 - Df'rmnnpnt r*»rliinrlnnrw 

Note: Bit S is on in oil coses except when a noise record is detected. 

2. Cell COMM - results of a s^ore chonnel for the operation. 

3 URRX, 1 table - redundancy counts: 

PZE N1,,N2 

Nl - number of recovery entries to SEL"*^. 

■ ^-- - ■■- ^^ ■■■.>-.• 'w .. . V. ^^. . vj^ . - w ^ ^Tr.iiit: fi^uuiii^y VI I fv ciu^e Qreos i^rirTen. 
1 - permanent redundancy (reading) or one or more erose areas 
(writing). |f a permanent redundancy, Nl =0. 

The normal return from SEL~ is Return ] . The exit conditions are 
desaibed fully in connection with redundancy recovery. 

Note: If EOT is defected while writing, the EOT bit t$ set on In the 
UCB, and tfie EOT indication is given on each subsequent 
entry to SEL~ for the unit until the tape is rewound. 

The tables RCTX, 1 and URRX, 1 can be indirectly addressed by means of the 
communicotion cells RCTX! and URRXI, respectively. 

When on end-of-file indica'ic^ is given to SEL~, the tcpe position has already 
been adjusted. The comn-.unicotion ceil LTPOS contoins the tope position prior 
to this odjustment . A redundancy indication cannot occur together with on 
end-of-file indication. 

Design of SEL Routines 



1 ■ SEL must not destroy the contents of IRl . IR2 and the sense indicotors need rxjt 
be saved by SEL . 

^. UCB Word 2 should never be cleared by SEL - a posting entry should always 

be provided. SEL" shou'c clear Word 2 if there are no more requests for the unit, 
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3. SEL must not modify the unit address in UCB Word i . 

Use of the UCB 

Word 2 of the UCB being non-zero indicates that the unit has something to do. Thfi 
cell must be sel ond reset by the user of !OEX. 

Normally, or>y direct reference to o UCB ot other than trap (SEL) time should be 
trap-protected by the sequence . 

ENB L(0) 

ENB* TRAPX 

to the user of lOEX. 

Activoting a channel and/or assigning priority. 

A channel which Is dormant con be activated, or a unit can be given top priority 
on o channel, by use of the routine ACTIV. The calling sequence ii; 

TSX ACTIV,4 

P A,T 

Return 

Where A, T is the location of a cell which contains 

OP UCB,X,Y 

UCB is the location of the Unit Control Block (OP,X and Y are ignored by lOEX). 

P = PZE: activates a domont channel . The specified unit Is given priority 

on the dormant channel . If the channel is active, the entry has 
no effect . 

P = M2E: the specified unit is given top priority on the channel, whether 

active or do-mant. |f the channel Is dormant, it is activated. If 
ACTIV is ertered at non-trap time, there is a hold until a trap 
occurs on the channel . hJote: at non-trap time, if a priority entry 
Is moce for o ccrrr.ant channel, this channel is held until the 
compieMon of 'he operation which activates the channel. 
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A fronsfer to ACTIV' 1 skips validity fesMng for the unif (availability bif) . 

Priority determination 

The selection of the unit on a cbonnel to be activoted I» mode as followi: 

) . The channel priority cell Is examined. If the cell is not zero, Its addreis 
IS interpreted as the location of the UCB for the unit to be activated next. 
The second word of this UCB !t tested: 

a. non-zero: do SEL"* for the unit. 

b. aero: do (2). 

2. If the priority cell is zero, the channel Is sconned for a waiting unit. If 
onejs found, the location of its UCB is placed in the priority cell, and 

SEL isenteredfor the unit. If no unit is waiting the channel is ollowed 
to go dormant. 

pnce activity begins on some unit of a given channel, that unit continues to reta... 
Its priority until all of its waiting operations have been completed, unless o priorify 
entry is made to ACTIV for some other unit on the channel. 

Non-Data Select! 



n 



Non-Dota selects are executed by the sequence 

TSX N DATA, 4 

PZfc A,T, NDS 

Where A,T is the location of a cell of the form 

OP UCB,X,Y 

UCB Is the location of the Unit Control Block for the unit (OP,X and Y are Ignored). 

NDS = NOP - 

1 SDNL 

2 SDNH 

3 REW 

4 RUN 

5 BSR 

6 BSF 

7 WEF 



CommenfJ: 

1 . The usrr must insure thot non-doto selects are properly synchronized with 
any data selects for the unit. At non-trap time, this normaliy means that 
the unit must be free --- i.e., the 2nd word of the UCB must be zero . 

2. Non-dota selects other than WEF ore simply stacked into the chonnel without 
checking to see whether the channel 1$ free or not. 

3. Non-doto selects for cord equipment ore Ignored. 

4. Transfer to NDATA+1 skips validity tes'ing of the unit. 

5. Bockspace record across the previous file mark complements the record counf 
in bits 1&-35. 

6. V/EF cousps fhfi rhonnpl to b" fmaA /-ifff.r v,k;,-|., lUa f«l |fN...it>--- -a-,,,^,- -^ '« 

• - - -- -J . -^. IV, I — .,^^\^f «.,ci y.iiiwii lilt: twiiOvViny icquern.-e \% 

executed: 

V/EFX 
TCOX * 
TRCX 
ETTX 



m 



Recovery is attempted If a redundoncy occurs while writing an end-of-file 
ork: the tope is backspaced, and the file mark is rewritten and checked, 
as often as necessary . After each group of 25 recovery attempts, o message 
is printed. If the EOT condition is detected following the writing of any 
redundant file mark except the first, on error holt Is mode. If the EOT 
condition is detected after a non-redundant end-of-file, a return to 2,4 it 
mode. The normal return for WEF is 3,4. 



Redundancy Recovery 
Writing 

The redundoncy trapping mode is used for write operations. "DIsoble redundancy 
checking" control is not ovollcble. If the first attempt to write a record producei 
a redundancy trap, the following procedure ii used: 

a. The tope is backspaced one record. 

b . An erose area is written . If this op'-ration produces a redundancy check, an 

operator note is printed. 



c. The record is rPv.rirten (i.e., SEL" Is enterecO ond checked for redundancy. 

d. Steps Q - c are repeated unfil the record Is either written correctly, or unfil 

the EOT condition is sensed. After each group of 25 erase oreos, on 
operator message Is written. 

Note: lOEX stops when the EOT condition occuri diirinn rf.d.ir.rJr.r./-»/ r«^,,w^.... 

However, there is always at leost one erase - rewrite sequence attempted 
and if the rewrite is successful, the stop does not occur. 

If, following the successful writing of a record, lOEX determines that the apparent 
record lenafh was less than 3 words, an entry I? mode to SEL" with the noise record 
condition indicated Two exits ore ovalloble for this condition; 

Return 1 the record is occepted . 

Return 2 the record Is occepted, and an operator note is printed, 

indicating thot o short record hos been written. 

The record count Is increased before entry to SEL", it is not increosed before 
rewrite entries to SEL"*^. 

On each rewrite entry to SEL"*^ during redundancy recovery, URRX, 1 has the 
following configuration: 

PZE N,,] 

where N is the nun-;ber of consecutive erase areas which have been written. Following 
o successful redundoncy reoDvery, at the entry to SEL", URRX', 1 has the same 
configuration. N In this cose is the total number of erase areas written on this 
recovery. 



Reading 



The redundoncy trapping mode is not used during read operations. 

If a redundancy occurs as the result of a reading operation, the following steps are taken: 

1 ■ RCTX, 1 is tested. If redundancy recovery Is suppressed, SEL" Is entered with 
no redundancy indication. URRX, 1 is not adjusted for this redundancy. The 
record count Is updated. 

2. If the record wos on apparent noise record, SEL" is entered with the r>oise 

record indication ('he record count has been ir.crtosed by 1, but URRX, 1 has 



not been odiusted) . The oction ta^en by lOEX offer return from SEL~ 
depends upon she return: 

Return 1 - ICEX assumes fliat the record bos been accepted despite the 
reaundoncy . No messages are printed. 

Return 2 - Tbe redundant record is considered noise, and is dlicarded. 

set on in tbe UC6 - Tbe record count is reduced by 1,URRX,1 
is cleared, ond SEL is re-entered to read the following 
record . 

Return 3 - tbe normal redundancy recovery procedure 1$ entered (step 3 below). 

3. For normal redundancy recovery, the following steps take place: 

a. If the redundancy count is URRX, 1 is 1, a tape cleaner action IJ 
token, provided tbe following conditions ore satisfied: 

1) The noise record bit is off. 

2) There are at least two prior records in the current file. 

The tape cleaner action consists of backspacing over the redundant 
record and the two prior records, giving two dummy reads, and then 
entering SEL"' to re-read tbe redundant record. If either of the two 
conditions sfoted above is not fulfilled, the tape cleaner action is 
not carried out, and a single backspace over tbe redundant record is 
made . 

b. When SEL"*^ is entered to re-reod the redundant record, the record count 
has not been increased, and URRX, 1 indicates the total number of 
previous attempts to read the record. 

c. If the redundancy count in URRX, I is 10, a permanent read redundancy Is 
assumed. The record count is increased, an operator message is 
printed, PZE 0, , 1 is stored in URRX, I and SEL" is entered with the 
permanent redundoncy indication. 

Note: p-'Inting of the permanent redundancy message can be suppressed 
by setting the corresponding control bit on in UCW Word 2. The 
redundancy indication is sti'l given, but URRX, 1 is not modified. 



50.03. 75 



Apporent N oUe Recordi. 

After eoch luccesjfully complffed write operation, ond after a redundant read 
operotion, o fe»f is mode for on apparent ihort (noise) record. Thli teit it mode 
oi foilowt: 

1 . The decrement of the Store CHonnel word ii reduced b/ 1 to obfain th« 
location of the lost 10 commend e)ecuted. 

2. The address of this lO command ii subtracted from the address of the Stor« 
Channel word to obtain on opporent word count. If this word count ti Uu 
thon 3, lOEX gives the noise record indication to SEL". 

Obviously, there ore sequences of 10 commands which will produce thli noli* 
record condiilon, even when the true record length is greater than 2 words. 

Note: no test is made for use of the indirect oddressing feature of 10 commands; 
if this feoture is used, o short record will normally not be detected. 
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Freeing o Chonnel 



It is sometimes necessary to nf-rfnrm cr^^^ i r\ „, 
the no-mal sequence of operations on o channel , 
subroufir^e FRCHX The colling sequence for this routirie is" 



■ :. -••w.Mc: Mines necessary ro nfrtnrm ir^T^t^ I /^„__._tr-_ • <• l > 

L I ' ' '"" ~ "- '"■ ' ^ ^pe '"'"-' n immeaioteiy, inferruptina 

the r.o-nol sequence of operations on o channel . This con be done with the 



TSX FRCHX, 4 
P2E UCB,,TRP 

Where UCB is the location of a Unit Control Block on the channel to be freed 
(normally the unit to be used) and TRP is the location of the exit point from th« 
routine which tronsfers to FRCHX. 



Rules: 

1 . All trapping should be disabled before using FRCHX by giving 
ENB L(0) 



2. The subroutine exit point specified in the FRCHX calling sequence must 
be of the general form 

TRA 

with the ndrfrp^t nr«>tof ^r^ <..^»,., *« iL_ l:^ 

— ^.^.v,. w,, ^,,,:j IV iiic luuiine. 

3. On exit from FRCHX, all trapping remains disabled. The desired I/O operation 
must be carried out witbut using data channel tropping. 

4. The user is responsible for testing ond turning off ony indicators (e.g., EOT, 
redundoncy) which may be turned on by the operation . 

5 FRCHX may be entered either at non-trap or at trap time . If at non-trap time, 

trapping is enabled at the sub.ootine exit point . |f a! trap time, trapping is encbled 
at the exit from lOEX corresponding to the uncompleted trap. 

6. if FRCHX is entered when the .-e-'ere-ccd channel is trapped, or dormant, or 

airecdy freed, the subroutine faUs no action. 
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7. If the operorion following FRCHX chonges a tope position, the corresponding 

adjustmenf should be made to UCB Word 3. 



Reset end Lood Channel Table 



iu^ 'u'^?l''T "" 7'' ^'^ ""^ ''^ '^^^ '^'^'^ °^ '^^^^^ ^^'^ Lood Channel instruction, 
Ihis should be done indirectly through the communicotion cell RCHXI: 

RCHXI PZE RCHX, 1 

The form of 'he table itself is: 

RCHX RCHA •• 

prwR ** 



On-line Me ssoges 

Messages con be printed on-line, using the subroutine MWR . The calling sequence for 
this routine is 

TSX MWR, 4 

PZE N 

P L1,T1,MI45]2*SPR1 

P L2,T2.M245]2*5PR2 



P LN,TN,MN+5]2*SPRN 

Wliere N = number of following entries in the calling sequence. P,L,T,M: M words 
(six chorocters each) beginning in location L,T ere converted to hollerlth ond placed 
in the line image for printing. |f P = PZE, the image is taken to be complete and 
the line is printed. If P - MZE, this line is considered incomplete, ond the L,T,M 
of the next calling sequence entry are used to continue building the Imoge, beginning 
with the next print position to the right. 
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SPR: if P = PZB, fhe senre exif SPR Is activoted ofier the line Is printed. (A SPR 
oppeoriny in a word wiih P -^ M2E is ici'iored) . To activate an exit before 
printino ;r,e Lot line, on entry stiouid be tr-o6t: in the coiling sequence of the form 

PZE •*,,5;2*SPR 
This will print a blank line, followed bv activation of the hub SPR. 



MWR con bo vied either at trap time or ot non-trop time. Printing is immediate; 
tbot is, FRCHX is uiea, und the printing operation has been started before the 
return from MWR. 
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VII. 



MAP OF KEY CELLS IN IOCS- 2 Channeln 10 Tapes each 



TiOcition (octal) 



Na m 





* ■""" ~ 


- 


11 


IZ 




13 




14 




15 




16 




17 




20 




21 




22 




23 




24 




25 




26 




27 




30 




31 




32- 


43 


44 




45 




46 




160 




161 




162 




204- 


-206 


207- 


-211 


212- 


-214 


215- 


■217 


220- 


■222 


223- 


-225 


226- 


■ 230 


231- 


■233 


234- 


■236 


237- 


■241 


242- 


•244 


245- 


■247 


250- 


252 


253- 


255 


256- 


260 



Content li Use 



IOCS 

STOPD 

PAUSED 

TRAPX 

TRAP 



COMM 

UEAll 

UEA12 

UEA13 

UEAl 

UEA2 

UEA3 

UEA4 

UEA5 

UEA6 

UEA7 

UEA8 

UEA9 

UEAIO 

UEBl 

UEi)2 



Not used 

XXXXX 
TTR 313 

1 XXXXX 
TTR 311 

2 XXXXX 
TTR 311 

3 XXXXX 
TTR 311 

4 XXXXX 
TTR 311 



XXXXX 
XXXXX 
XXXXX 
XXXXX 
XXXXX 



Ch. A. Trap 
Ch. B. Trap 
Ch. C, Trap 
Ch. D, Trap 
Ch. E. Trap 
Ch. F, Trap 



Ch. C. Trap 
Ch. H, Trap 



TTR 311 

6 XXXXX XXXXX 
TTR 311 

7 XXXXX XXXXX 
TTR 311 
Not used 

TTR JO BEND 

HTR 45 IOCS Stop 

HPR 77777 IOCS Pause 

21-35 = L(ENB Cell) 

OOXXX 003 77 Normal Enable Cell 

(redundancy bits on if 
ch. is writing) 



Unit Control 


Words 


Ch.A. 


Card Reade 


Unit Control 


Words 


Ch. A. 


Punci 


h 


Unit Control 


Words 


CH. A 


. Printer 


Unit Control 


Words 


Ch.A 


, Tape 


1201 


Unit Control 


Words 


Ch. A. 


Tape 


1202 


Unit Control 


Words 


Ch. A. 


Tape 


1203 


Unit Control 


Words 


Ch. A. 


Tape 


1204 


Unit Control 


Words 


Ch.A. 


Tape 


12Q5 


Unit Control 


Words 


Ch.A. 


Tape 


1206 


Unit Control 


Words 


Ch. A. 


Tape 


1207 


Unit Control 


Words 


Cho A. 


Tape 


1210 


Unit Control 


Words 


Ch.A. 


Tape 


1211 


Unit Control 


Words 


Ch. A. 


Tape 


1212 


Unit Control 


Words 


Ch. B. 


Tape 


2201 


Unit Control 


Words 


Ch. B. 


Tape 


2202 



50. 03.80 



Map of Key Cells in IOCS - Page 2 



261-263 
264-266 
267-271 
272-274 
275-27? 
300-302 
303-305 
306-310 
315 

316 

317 



331 

332 



337 
340 
353 
354 
355 
356 
357 
360 
361 
412 
5016 



5017 



UEB3 
UrjB4 
UEB5 
UED6 

UEB8 
UEB9 
UEBIO 
ClIXSP 

CHXSP+1 

CILXAC 

CHXAC + i 



URRX 
URRX + 1 



RCHX 
RCHX + 1 

SE.LX-7 

SELX-6 

Sf:L,X-5 

SELX-4 

SELX-3 

SELX-2 

SEBX-1 

EXIT 

SELCT 



SEECT + 1 



Unit Control Words Ch. B, Tape 2203 
Unit Control Words Ch. B. Tape 2204 
Unit Control Words Ch. B. Tape 2205 
Unit Control Words Ch, B. Tape 2206 
Unit Control Words Ch, B. Tape 2207 
Unit Control Words Ch. B, Tape 2210 
Unit Control Words Ch, B. Tape 2211 
Unit Control Words Ch. B. Tape 2212 
Ch. A. Priority Cell Bits 21-35= UCW with 
priority 

Ch, B. Priority Cell Bits 21-35= UCW with 
priority 



Ch. 



A. Arti\nt-\r ^r>1^ 
- ... .^...^ «^»i 



Bits S-2=3 if waiting for trap 

Bits 21-35= L (active UCW) 

Ch. B. Activity Cell 

Bits S-2=3 if waiting for trap 

Bits 2^1-35= B(active UCW) 

Ch. 



Ch. A,"! 
Ch. B.J 



Redundancy count cell; 



last non-data selects executed 



3-17 = if reading, 1 if perrn. redundancy 
if writing, // of erasca tliis record 
21-35=// of entries to redundancy routine 
current record 
RCHA a ; a = L, (last lO command) 
RCHB b ; b= L(last lO command) 

BSF ** I 
BSR ** 
RUN ** 
REW ** 
SDNH ** 
SDN.L **7 

TTR ** exit from trap routine 
RDS ** 

or last data select 

WRS 

XEC, RCHX, 1 RCllX for last select 
IRl = - (Channel- 1) 



u n n k 
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* IOCS Routines 



/writ\ 

o 



om y. 



Get output 
tape from 
Op. Panel 



0010 



0012 



Jl 



Specialize 
Select 
Inttructloiu 



0017 



L 



Rewind 
Output 
Tape 




< 



Stop at 4 



0022 



Remember 
output 
chamiel 



0025 



Indicate 1st card 
is yet to be 
processed 




0030 




Read one 
card 



V-G 



WRITE SYSTEM TAPE 
SHEET 1 



X 




0035 



0040 



0052 



Remember 1st 

card has been 

processed 




0176 



Extract 

folded 

Checksum 



0124 



IniUallze 
lattnictloii* 



WRITE SYSTEM TAPE 
SHEET 2 




Yes 




0130 



■^ 



Reserve word for 
"Loading Command 




3 



A WRIT A 



0073 



±. 



Move card to 
output area 



0074 



Compute 
Checksum 



0077 




WRITE SYSTEM TAPE 
SHEETS 



fVfKrT\ 



4 



Oill 



Compute 

lOCP 
command 




Store W.C. of 
output area 



0140 



I 



Change 
command to 
lORT 




WRITE SYSTEM TAPE 
SHEET 4 




WRITE SYSTEM TAPE 
SHECTS 




^ Stop at 0002 ^\4 



Stop at sero 



D 



WRITE SYSTEM TAPE 

SHEETft> 



ACTIVATE 

niE 




Find location of 

auociated 

unit control block 



Extract Channel 
Number 



Assign priority to 
this unit 




Extract location of 
select rciutine 
from UCBW 2 




Yes 




Enaible Trapi 



Exit at 2, 4 



XOBS 



Issue 



Prepare for con- 
dition checking 



Issue 1 



I/O Select 
Routine (plus) 




Permit redundancy 
trap if write 



PnrE PROCESS OR 



ACTV 



BC 



Inidatc Next 
Channel Operatio 



Set Activity 
Cell 



W 



Find location 
of Select 
Routine 




Yet 



ISSUE 




Set trap twitch and 
normal redundancy 
mode 



IS;SUE 1 



I/O Select 
Routine (Plus) 



RDUN ■^ 



Permit redundancy 
trap if write 



Select Routine 
not specified 
clear UCWX 
exc(;nt prefix 



'■a;>!> trwjss 



Assign 

Channel 

gri^rityto 




JBC 



FRCHX 



Free 



Channel 



Extract 
Channel 
Number from 
T7CRW1 



FRC6 




Set force switch I 
(FRSW 1) 



Enable CW-EOF 

Trap for this chan- 
nel 




Return - TRA 2, 4 



FRO. 



TRAP 



Reset Force 
Switch 1 
(FRSWl) 




FRCHX 1 




Find location of 
Trap cell for this 
Channel (Ex.A=12) 



FRCll 




FRCIO 



Save redundancy 
by placing bit in 
pes. S of trapcell 



Set EOT condition 
into UCBWl Pos. 18 



Save channel 
information 

in 

SCHFX 




Entered at trap 
time, locate exit 
in trap routine and 
store in trap cell 



Entered at non trap 
time, locate exit 
in main routine aiic 



;e 



Set force switch 2 
(FRSW 2) 




Prepare subroutine 
exit to forced trap 
completion routine 



Return - TRA 2, 4 



FRCHX2 



n 



'^FRCHX 

3 1 Complete Forced Trap Procedure* 




Prepare to check 
next channel 



FRC5 



Prepare to complete 
intemtpted trap 





Mode 



Reset Force 
Switch 2 



.Out to Point latemip 
by main trap 



FRCHX 3 



IX. 



NDS6 



NDSEL 

None- Date 
Select 
Routine 



jt 



Find and save 
Location of unit 
control block 



Form tentative 
return location 



Jl, 



Extract op code 
from calling se- 
quence 




WEF. NOP 



DNL, SDNH, REW, RUN 
BSRM BSF 



Increase Tefr* 
tative return 
location by 1 



Set up Exit 




Card Operatioi^^ Yei 
(SI 11) 



Re turn 



Extract physical 
tape address fton 
UfiBW 1 




NDSEL 1 



IB 




Return 



Place binary mode 
bit in unit addfen 
to specif/ high 

density 



Set up Select 
Instniction 



4r 



Set enable switch 




Yes 



Yes 



j^ NDSEL A 



^ 



Bring out tape po- 
sition (UCBW3) 
and save noise 
record concUlion i: 




o 



NDSEL 2 



/-t 




Prepare to in- 
crease EOF 
count by 1 



1 



Reduce Re 
cord count 

l3y 1 



Clear flle 
and record 
counts 



Reduce 

file coun! 
jf 1 



I 



Clear file 
and record 

counts 



Set last SON 
Indicator to 
high (SI 20) 



Reset last 
SBN indica 



'►f^ 



Positioned Just 
before EOF 




BSF 



Increase re- 




Increase F.OF 
count by 1 



BSR-BSF 
Beyond Load Pt. 





SDNL, SDNH, REW, 
R 



Clear file and 
record counts 



Clear file and 
record counts 
(SI 18) 



Restore noise 
record condition 




NOSEL 3 



li 




Update tape 
position 
(UCBW 3) 



UPD 1 



NDSX2+2^ 



ReMt enable 
Switch 



UPD 3 




Reiet deiuity at 
rewind Indicator 
to low <SI 19) 



Set density 
at rewind Indi- 
cator to high 
(SI 19) 




Update UCBWl 
from SI 



Return to main routine or forced trap completion (tee FRCHX 3) 



MDSRL4 



/<; 



FRCHX 




FRCHXl 



Free Channel if 
Active 




Prepare to place 
EOT exit location 
lato trap cell 



Prepare to place 
EOT exit location 
into (NDS 3) 



Unit xxxxx 
EOT on erase 
cannot ptoceei 



CWPRT WEFB 



r^ 



Print 



Stop 



Print, 



Stop 



WEF3 




Set EOT Indicad< a 
(UCBW i Pot. 18 



NDSEL S 



17 



RED 12 

Redundancy 

Recovery 

(Read) 



I 



Prepare to redun- 
dancy check 
channel used 




<TRAP 3 



Check for noise 
record set indica- 
tion (SIO) 




Increase redun- 
dancy count 
by 1 



A 



Specialize back- 
space record 
Instruction 



S 



Specialize read 
tape instruction 



^ 



REOl 




18 



Bits in S/1 of UCBW2 (mixed mode) 



10 tiiet 




Increase record 
count (UCBW 3) 
by 1 



Set permanent re- 
dundancy indicator 
(SI 2) 



._w| xtrapA 



Set up Message 



Extract noise 
record condition 
(UCBW 3) 



Unit xxxxx 
File xxxx 
Rec.xxxx 
Permanent 
read red 



Set redundancy 
count cell 
(URRX) 




BED2 



'9 




Turn oiii 
Tcdundancy in- 
dicator 




RED 22 



Redundancy 












Recovery 






(Write) 














CUPRT 




Setup 
Error 






^''''Redundant^N^ Yei 


Print, 


Vw^ Erase ^^ ' (H" 


Menage 


1 |» 


Proceed 


^S^ ? ^^ 








^No 
















Unit xxxxx 










Set Channel 


" 




File xxxx 




Activity cell 






NoiJwIon erase 




minus (CHXAC; 

1 ■ " 






•"X 




Update 






Redundancy 






Count 






^ 






Specialize 






Bakcspace 






Record 






Instruction 

1 






Specialize 


—J. 


RED ^ 


Write 


^ 


W 


Select . 
instruction 




^.^ ^ 









— ^§) 



RED 3 



Yes 




Form 
Command 



J. 



Write blank 
tape 



V 



Indicate erase 
area written 



TRA out (leave trap routine] 



IIED4 



^/ 



XTRAP 

Check last 

Channel 

Operation 




Entry if through 
SAVE Routine 



Prepare Exit 
to Location 



A 



Detennine what 
Channel Crapped 
and bring out acti- 



vity cell 




Set Trap 
Switch 




Store 
Channel 
Inform ation 



Store 
Forced Trap 
Information 



MWR 




Print, Print 
Stop 



I/O Check 
Ptett Start 
to Continue 



Initialize 

' i: : noise record 

Indicator 

(SIO) 




XTRAP 1 



2X 



RED 

RLU i RHU ££ 



Write redundancy 
recorery 




TRA out (leave routine) 



Set EOF Indi- 
cator (SI 1) 



Turn off fedundancy 
indicator 



d 



Piepare to let record count to Zero and Increaae File CT by 1 



Save tape position ^^^ ^ m ,^ 
before last trap f \ 

(UCWB 3) 



ftr/ XTRAP I 



3-E 7 (Permanent redundanqr) 




!o on to next recordJI; 
(Repeat read of dili record) 



XTRAP 2 



Z3i 




o 



Find Location of 
last command 



I 



Extract word 
count 



Turn off 
redundancy 
trap bit 





Adjust tape position 
- increase count 
by 1 (UCBW3) 



S 



Prepare for entry 
to select routine 




Set noise record 

indication 

(SIO) 



Set up message 



rWPRT 




Prevent increase in 
:ile connt if record 
=^7, 777 (BSR over 
EOF wotild cauie thi 



Mask out positio is 
19 and 20 or UC i ^f j 



N. I.;suc- ^ J J 



Normal return 



Post Completion 



PRE.R 





1 



Reset 

redundancy 

count 






Print, 

Proceed 



Unit xxxxx 
File xxxx 
Rec.xxxx 
Short tecord 

written 



I 



S 



Reduce record 
count by 1 
(UCBW3) 



NC'ise record return 




No 



1 



Set up message 



CUPRT 



I 



Print, 

Proceed 



Unit xxxxx 
File xxxx 
Recxxxx 

Noise record 

^di$car= 

led 



Clear redundancy 
counts 



w 



Place noise record: 
indication in UCBW3 
and reduce its recorij 
j^g^^ bv 1 



6 



XTRAP 3 



^-t 



BAOO 



Initlaliuition 



IL 



Specialize 
Trap CelU 



STZ at 
O-llg 




Store 253, 
atBXOO 



8 



Ye» 



No 




■WRESTRT 



■> 



Store 204g 
atBXOO 












Initialise 

PREP OOUBU 




Make C.R. or 
Bl available 
(Prog, unit) 








I 






Make 
Printer 
available 



BAOO 




Z5 



B ASGN 

I/O unit 

asslgninent 

routine 



No 



BSCAN 
BSCAN 



Examine lit 
character 




Place tero 
inXRB 



Place -1 
inXRfi 



BSCAN 



BSCAN 



Examine 
unit no. 



RETURN 




BASCNi 




Yei 



BTSl 



Place lero 
inXRfi 



BCONV 



Convert 
unit to binary 



RETURN 





Set unit 
to dec. ten 



BTOl 



Compute loc. 
of UCW 



Make unit 
available 




Ye» 



Place zero in 
XRB 



UCW 1 SIGN > ZERO 



RETURN 



\ 



RETURN 



BASGN2 




BASCN 




Find type cif 
card machine 



Ye» 




JS£M. 



BSCAN 



Examine 
Channel 



BT51 



Place zero 
inXRB 




RESTART 



BASCN 3 



28 



BBOO 

Read control ciaid 
and branch on 
operation 



BERR 



JOB CARD 
OUT OF 
PLACE 



BERR 1 



PRINT 
ERROR 



ILLEGAL 
DP. XXXX 



BCARD 



BCARDl 



Place card In 
output buffer, 
initiate next read 




PRINT 
ERROR 



ist CNTL 
CARD IS 
NOT A JOB 
CARD 



BBOO 



3<i 



BC50 

Pr6-Proceisor 
wrap-up 




MOUNT 
INDICATED 
TAPES 



CONTINUE IF 
CNTL. CARD 
ERRORS CAN 
BE IGNORED. 



BC50 1 




PAUSE 



Stop, Print 
message 



PAUSE 



Rewind 

System 

Tape 



Stop, Print 
message 



PRESS START 
TO CONTTINUI 

CONDITION 
IGNORED 



Operator 
Action PauM. • 

Action 
completed 



BCS2: 



DiiabU 
Traps 





Load rest 
oir prog. 



Specialize 
RDS 



-> 



Compute Correct 
RCH 



Specialize 
IXH 



TRA BCZO 
(IN EXECUTOR) 



BC50 2 



3i 



aCARD 

Control card 
input routine 




Set 
Word Count 
to 12. 




Invert 
buffer 
switch 



Build 
read 
command 



Set 
Word Count 
to 24^0 



Specialize 
2nd word of 
UCB 



ACTV 



I 



ACTV 



Prepare 
for read 




BCARDl 




BCARD2 



33 




No 



Convert 
6 colunuu 
to BCD 



BERR 
BERR 1 



Print 
Error 



■■^^l"""^ 



Move word to 
output buffer 




O 



' BOARD 3 



31 



BCNTR 

File Control 
Item Scan 



Obtain table loc. 
and size 



Obtain 
character for 
comparison 



I 



Compare with 
1st word of pair 



Adjust for 
next pair 




OR 2nd word of 
pair to indicators 



f 



RETUFlN 



BCNTR 



2^ 



BCOO 

Scan and list file 
control blocks 




Get wd. #S of 
FCB 



BC04 



Prepare for 
next FCB 




No 




Yei 




Enter File No. 
in image 



(WD. 2) 



BC016 




Store blank* 
in image 
area 




BCVR 



Convert 
file no. to BCD 



BCOOl 



3h 



BC02 




Enter File Name 
in Image 




Obtain unit 
addresi 



Enter CORE In 
Image 




Enter I-O 
addr. in Image 



(WD. 7) 



Place "REEL" 
in Image 



(WD. 8) 



Place No. 
in Image 




Obtain Reel 
Seq. No. 




BC00 2 



37 





Yei 



(WD. 9) 



Store BLANK 
In Image 



(WDS. 10-11.12) 



HIGH DENSITY 
LABEL to Image 



(WDS. 10-11-12) 



LOW DENSITY 
LABEL to Image 



(WDS. 10-11-12) 



Place UNLABELLED 
In Image 




BWRT 




FILE 

DESCRIPTIONS! 
(MOUNT 
FILES 
MARKED 
WITH*)— 

HEADING 



BC00 3 



3i 




Prepare for 
next FCB 




BC00 4 




BC()0 5 



BCONV 



Convert leq. 
to binary 




BCVR 



Convert 
Seq. to BCD 



(WD. 8) 



Enter Sequence 
In Image 




BC00 5 



4« 




Prepare for misc. 
lean 



RetUrt Operadoaf 



BC50 1 I (NORMAL EXIT) 




ficooe 



4/ 



BDATE 



Date Cai'd 
Processing 



Prepare for 
leap year 
test 



BCONV 




BERR 




BERR 1 



Print 
Error 



DATE 
ERROR 



BDATE t 



-fa. 




Compute day 
of year 




w 



Store Date for 
Tape Label 



BCVR 



Convert day 
to BCD 






Store Date 
for Printer 




Add one to day 
of year 



BOATE 2 



BERR 



EiTor 
Message 
Routine 



^i 



Specialize inttr. 
for moving data 



BCVR 



Convert card 
count to BCD 



BE06 



Store count 
In message 



Move one word 
to message 



BEOO 



Yes 




Update 

page 

number 




BCVR 



Convert page no. 
to BCD 




BERR 1 



-?^ 




PROUTO 



Enter page no. 
in Header 



Restore 
Print Header 




IOCS PRE- 
PROCESSOR 
ERROR LIST. 
JOB XXXXX 
PACE XXX 



PROUTO 



■Pi 



Print card no. 
and error 



CARD XXX 
(MESSAGE) 




1 



RETUR?< 



BERR2 



^s- 



BFILE 



File Card 
processing 



Yes 




Yes 



No 



BSCAN 



BSCAN 



Examine 
File No. 




BCONV 



i^ 



BCD to 
Binary 




Yes 



BHOO 




BERR 



^ 



1 



BERR 1 



Print 
Error 



iV 



Yes 



1 



. /bF1LE2 \ 



FILE CNTL 
BLOCK NO. 
ERROR 



BFILE 1 



© 



^46 



Compute 
Loc. ot FCB 



BHOl 



Enter File 
Name In FCB 



Auign FCB 
above File 
Block 



(WOS. 10. 11, 12) 



BSCAN 



BSCAN 



Examine 
File Serial No. 



o 



NOTEt HLE BLOCK IS USING 
STANDARD ORIGIN. 




No 



■> 



Enter Serial 
No. in FCB 



BSCAN 



^ 



BSCAN 



Examine 
Retention 



(WD. 7) 




BFILE2 



I BFILE 3 j 



-?; 



Enter Retention 
Days in FCB 



(WD. 9J 



BSCAN 



BSCAN 



Examine 
Reel Seq. No. 




Enter Reel Seq. 
No. in FCB 




(WO. 8) 



Ye» k. 


Set Reel Seq. 
No. to 0001 


















♦ 








BERR 1 










BERR 1 


-1 




No 


Print 
Error 








i 











REEL SEQ. 
NO. NOT 
NUMERIC 



BFILE 3 



[ BFU.E4 J 



H 



BCNTR 









BCNTR — 






Determine 
List/No U«t 














1 






1 






Enter LIST Ind. 
in FCB 


(WD. 5) 

S = (LIST) I (NO LIST) 

ADR « LCX:. OF ZERO 








BCNTR 




tr 


BiHTR — . 




Get File 
Type ind. 






w 




_J 










BCNTR 






BCNTR — 




Get Reel 
Cntl. Flag 










_J 










BCNTR 




»w 


BCNTR — 




Get File 
Density 




— " ". ^tf 


J 




BFILE4 



-^^ 







BCNTR 



Get 
File Mode 



■{l^ 



■^ 



^ 



BCNTR 



BCNTR 



Get Label 
Density 



BCNTR 



BCNTR 



Get Block 
Seq. Ind. 



BCNTR 



BCNTR 



Get CKSM 
flag 



■^ 



BCNTR 



BCNTR 



Get CK PT 
Convention 




BHLES 



£-0 




Determine 

Label 
Densities 



BH036 



STI Into FCB 



<WD. 2) 




Yei 



BSCAN 




BASGN 



BASCNl 



Obtain 
UCWl Loc. 




Yes 



BERR 



If 



BERR 1 



Print 
Error 



I 



UNIT 1 
MISSING OR 
ILLEGAL 



Set UCWl Loc. 
to zero 




BFILE6 



jri 




Enter ind. and 
UCWl Loc. in 
FCB 



(WD. 4) 
SIGN - 1 



Indicate 
Internal File 
in FCB 



Set Regen Chain 
in FCB 



BCNTR 



BCNTR 



Get mounting 
Ind. 




(WD. 1) 

ADR. - LOC. (0) 



(WD. I) 

SIGN» 1, BIT 18 - 1 (MOUNT IMMEDMTELY) 

ADR. AND DECR, » LOC. OF UCWl 



BSCAN 



mJ^ 



:bscan 



Examine 
Unit 2 




BFnjE7 



sz 



( BFILE 8 \ 



mtp 



BASCN 
BASGN 1 



Obtain 
UCW2 Loc. 




Enter UCW:> 
Loc. In FCB 



Yes 



(WD. 1) 

DECK. ■= LOC. OF UCW2 



I 



o 



BCNTR 



^ 



BCNTR 



Examine 
Col. 36 



BERR 

berrT 



PRINT 
ERROR 



UNIT 2 
ILLEGAL 




Store flag in 
UCB'i 




BnL£8 



J'i 



BJOB 



Job Card 
processing 



J2 



Place job name 
in messages 



SL 



Initialize 
Indicoton 



Store rec. count 
at BRECT 



BCNTR 



BCNTR 



OR rec. count 
to Ind. 



Find stand. 
Flic Block 
origin 



BSCAN 



BSCAN 



Examine 
Col. 44-48 




BJOB I 



S4 




BJC>B 2 




Compare 
STAND., ORG. 
wlthC.C. ORG. 



Obtain 
C.C. Oiigln 




^ 



Obtain 

Standard 

Origin 




Obtain 
Standard 
Origin 



X 



Store F.B. Origin 
at BNORG 




4- 



FtLE BLOCK 
ORIGIN 
NOT OCTAL 



JtfOB2 



sc 




Store File Block 
Origin /or Loader 




Store File Block 






Origin for C.P. 












BSCAN 






BSCAN — 










Examine 
Col. 33-35 



BCONV 



L.onvert 
BCD to Binary 





Set Block Count 

t3 50|g 



I 



FILE CNTL. 
BLOCK COUNT 
ERROR 



BJOB3 



SL 




Compute 
Wordx 
Needed 



Store Site 
for Loader 



Store Sixe 
for C.P. 



FILE BLOCK 

WILL NOT 

FIT 




Compute end of 
VTorklng File 
Block 




BJOB4 



St 




SJOB5 



Si 



BSCAN 

Field Scan 
Routine 



i 



Determine bit 
count and location 
o( field 



J. 



Field content 
in MQ 




No 




No 



Record position 
within field 




Significant bit 
count in XR C 




RETURN 



BSCAN 



s> 



ADIBC 

Adjust Input 
Buffer 

Availability 
Count 




Ye« 



•^ 



Make ACC 
Content Minus 



Compare number 
of Buffers available 
to Number Require 




ADI 



No 




AtMeh Eiror 
at xxxxx 
cannot proceed 



|\iijust BPCW 1 
decrement (number 
>f available buffers) 



Return 



ADIBC 



Ct 



ATTACH 




o- 



ENTRY V 



ENTRYl 



Normal entry 
to routine 



ATTCH ' 



Set BPCW2 
address to zero 



PERR 




Pool Error 
TSX at "M*** 
cannot 
proceed 



Place attach mode 
bit in S.I. 
(SI 2») 



CA50 <fy 



CA50 



File List 
Processor 



SUN 



y^iK 



Reduce buffer 
count by open 
count 




Notet Set 

Reservci 
'Bit Indicati! 
(SI. 4) 



ADIg^ 



ADIBC 



Adjust buffer 
availability 
count 



CA60 



Yes 



Print, Print, 
Stop 



(File Name) 
Not available 
for initializa- 
tion. Presi 
start to conti- 
nue 



ATTCH 1 



a 



r 




Place location of 
pool in address of 
FCBW3 and decre- 
ment of FCBWS 



Labeled? 



No 



Yes 



NSLST 



■^ 



Place location of 
label routine in 
FCBW3 



d 



Reserve If 
(SM) 



Yes 



•^ 



Place location of 
SVN word In 
FCBW4 address 



Sr 


^ Output 






Form output file chain 


Input/ ^ 


►^"^ Internal? ^V ^o ^ 


Location of last 
file to FCBW2 and 
location this file 
to BPCW2 




Output? . 


^ p 




Tin put 


T^ 









R.«.e/.v« ? 



Wi 



No 



Total 
Output? 



Yes 



Yes 



Irt 
attached? 



No 



iNo 

ADIBC i<^ 



A DISC 



Adjust buffer 
availability count 
(BPCWl) 




Yes 



ATTCH2 



a 



OPAT 




OPENl 



Open 
Routine 



I 



Put control 
biti in 
FCBW2 




No 




ATTCH 
1"A" 



RETURN TO PROGRAM VIA XOMXIT" «A" ENTRY 



ATTCH 3 



ii 



BORBF 

Read 
Subroutine 



Buffers 

Available 

7 



Yes 

File 

Inhibited 

? 

No 



No 



Exit 1, 1 



Yes 



hxUact iqcaUcn 
available buffer i 
Update Pool 

Buffer Chain 

(BPCWl) 



S^ Ye. 


— i^^ Exit 2. 1 


Buffeir not 
available 


^ 




TOKBF 




-«tte 




V^ No 


Adjust 
Buffer Counts 




^ 


"TP 


AVMI<-1»<^ 









and 



T 



Increase by 1 court 
of buffers 
in use by file 

fFBCWZ) 



RDSEL 



I 



RDSEL 1 



Issue 
Select 



I 



Exit 2, 1 



BORBF 



Q^ 



BSCKS 

Checks prior to 
BSR, BSF 




FNLBC 



Find Pool 



UNBFri 



Unbuffer Input 



^ 



t 

Return - TRA 1, 1 



Exit via COMIXIT 



Set "INSAT* Indicator 



UNBFO BSC 2 




Unbuffer Output 



BSCKS 



LS 



BSF 

Backspace file 
Routine 



BSCKS 



BSCKS 



Perform checks anc 
unbuffer 



■ilc count = ^^ Ye» 




Exit via coMxrr 



NDSEL ^ BSFl 



NDSF.Ll 



Backspace 1 file 



BSF2 

I a>et (equence 



Extract and save 
file type (RD/WR) 



Set file to read 




Exit via COMXIT 



■■R.nsKi ^. 



RDSELl 



Perform dummy 
lead across EOF mai 




BSF 1 



6(» 



BSF 4 




Turn on Wait Lite 
(Senselite 2} 




Turn Off Wilt Utc 



(Senselite 2) 



Set no Inhibited 
Indication 

(SIS) 



r 



Restore File Type 
(RD/WRT) 

. VCBW2 



Set Dummy Sync 
Chain to Zero 




BSF 2 



^r 



BSR 




Perform che<:k» 
and unbuffer 



Extract Tape 
Position from 
UCBW 3 




Reduce block se- 
quence count by 1 

(FCBW 4) 



Just beyond EOF mafk 



Exit via "BOF" (Beglnalng of file) 



Exit via COMXIT 



BSR 



^s 



CA50 



File List Processor 



Compute "List" 
Location 



Bring out first word j 
of list and xest for 
type of file 




SVN 



TlUt 2, 4 (SVN) 



Store location of 
non-standard label 
pkg in FCBW3 de- 
crement if specified 



"Or" file control 
bitsof FCBW2 to 
attach mode bit iii 
SI 



TRA 1, 4 (PZE) 



CA50 



c^ 



CKcrv 



priority reini- 
tiate an input 
buffer 




Turn on GIVITP In- 
dication (SI 14)^ 



£ 



Reset Rush and 

Civup indication 

(SI ) 

1^, >4 



■TOOTTv 



i^OiUJF 



No 



Return - TRA 1, 1 



Initiate Read 



Successfiil 



Unsuccessfiil 



JT 



M. 



n 



Set reinitiate in- 
dication (SI 26} 



o 



CKGIV 



CLOSE 



Close File 



Place Mode bits 
in SI (Type of 
close) 




mom than 1 



Place location 

of list - 1 

in list ptocessot 



Place location of 
calling SEQ-1 IN 
list processor 



CA50 ^"' LA IU 



CA50 



File List processor 



Svn word 



PZli word 




Save location of th 
this svn word 



CiM3 



CaU 

Find original buffer 
count of «nd restore 
last pvn word ..dec. 



ADIBC 



Increase buffer 
availaUity count by 
number of freed 




FNLBC 



Fine location of 
Pool 



CA20 



0J 



Bring out location 
of next file in out- 
put chain 



CA34 




Remove this file 
^f,g,rj^outp«tfile 



CIOSSl 




CA 40 



Reduce TTO Count 
(BPCW2) 



CA22 



■TOffiT 



Prepare to increase 
available buffer 
count by 1 



ADIBC 



Increace buffer 
count 



•jn^^'i^K 



sinjT 



Dc-Activate File 



CA 25 



7' 




MmMMMHsJiiBMI 




CA 11 



Find original buffe: 
count of and restort 
last svn word de- 
ciemeiat 



AVm 



ADIBC 



Increase buffer 

availability count 
by nuniBer 
of freed buffers 



^^ 



Ptoeess next file in list 



Exit vU COMXIT 



CLOSE 2 



nx 



COMXIT 



NOPXIT 



Common Exit 
Routine 



>r 



Store Modifiod 

Control Bit5 

In FCBW2 



Output File 
Not Open 



FEXIT 



jIl 



Find 
Exit 









^ Off ^ 


V^^ 






CKPT 




Point Switch ^S 
»w Sense ^^^ 
\>^X^Off 


On ^ ^X^Chcck ^*S, 
^ S^C Point Lite ^ 


•CSwitch (Storage)^ 




Checkpoint 




' 


' un 

r 


1 






1 


Reset C.P. 
Lite and Clear 
C.P. Switch 
fStoracjc) 





History 
Record to 
Ace. 



rCH occur . 


Yes 


J5b 


Prepare to exit 
at L(lst TCHHl 






"5** 




LfNo 









Restore XRS 1 and 
2, S.I. and reset 
sense lite 1 



\ 



Return to Program 



COMXIT - NOPXIT 



7 3 



COPY 

Input File (1) trans- 
fer to output file (2) 



STASH 

Transfer info. 
l)etween an inter- 
nal file and some 
other file 



Find location of pool 



CPY6 



I 



Restore file 1 control 
)its (FCBW2) 



i 



Alter FCW to refer 
to file 2 



■4r 



"lie control bits of 
file 2 to S.I. 





Save "NTS" 
Exit 



Set stash mode 
Indicator 

(SI 29) 



D 



Exit via COJ^XIT 



Set initial condition 
saUsfiedlnd. (SI2S) 



TRUNC 



TRUNC 



Truncate output 
buffers 




COPY - STASH 1 



7^ 




CPY6 



Restore File 2 
Control bits 
(FCBW2) 



-— ^ 



Alter FCW 

to refer to file 1 



File control bits 
of file 1 to SI 



Reset copy hold 
Indication 
(SI 35) 



E 



o 



Set copy mode 
indication 
(SI 30) 



-^ 




Save location of 
possible hold cmin 
lilc 1 




Set copy hold 
indication 
(SI 35) 



CPY3 



Sl. 



Set up buffer as 
if it had Just been 
filled by write 



routine 



Extract location of- 
input buffet ' ^-^ 



CPY6 



T 



Restore file 1 con- 
trol bits (FCBW2) 



"—^ 



Alter FCW to 
refer to file 2 



r 



vS^ 



Transfer input 
buffer to output 

file 




File control bits of 
file 2 to SI 



Exit via COMXIT 




Locate first 
buffer in hold 
chain 



COPY- STASH a 



r 5- 



TRUNC 




TRUNC 



Truncate 

transferred 

buffer 



CPY« 



I 



Restore file 2 
conirol bits 
(FCBVY2) 



■M^ 



Alter Few to refer 
to file 1 



File control biu 
of file Ilk to SI 



Extract location 
of input buffet 



POOLRD 



s 



CKGIV 



POOIRD 



Adjust Buffer 
counts 



CKGIV 



^ 



Priority reinitiate 
an input buffer 
if possible 



Get copy functioi 
indication 
(SI 30) 



S 



Reset 
Givup 

Indication 
(SI 32) 



S 



Find location of 

in pos- 

siblc-l^^}.^^}^y 




Place location ol 
next bufferop.!;- 
pool into 
FCBW3 



Exit via COMXIT 



COPY - STASH 



7 6 




STSHl \, 



Set stash switch=0 
(XEOB) 



TSH 3 




File 2 internal output 



Set transfer in cop 
routine to exist tes 

for NTS 




COPY 
STASH 

B 



CPY6 



Restore liic 2 contxfl 

control bits 

(FCBW2) L»^, 



Alter FCW to 
refer to file 1 



MB^ 



File control bits o( 
file 1 to S.I. 




Case 3 - File 1 internal Input, file 2 regular output 



TRUNC^ 



Case 1 - file 1 internal output, file 2 regular output 



Place any output 
prepare j in rcgcn. 




Exit via ">JTS" 



Remove first buffer 
from PC gen. chain 



E 



Jpdate rcgen, chain 



B ^ f CO?Y \ 
■"VY STASH j 



COPY - STASH 4 



-7 7 




Set locator to 
show location of 
buffer content 



nCI<BB\' 



r 



Increase pool buffet 
count by 1 



V 



Reduce sequence 
count by 1 



CPY6 



I 



Restore file 1 
control bits 



■MH^ 



rV 



Place buffer into 
output file 



Set copy function 
ind. 



(SI 30) 




Location of last 
last buffer to next 
buffer 



Alter FCW 

to refer to file 2 



File control bitf 
of file 2 to SI 



d 



Exit via COMXIT 



COPY««TASH 5 



79 



STSH4 




>et Utash switch =0 
XEOB 




Yei ^^ Buffer 
■^^^ connected 7 



TTsr 



Restore file 1 
control bits 



mmJ^ 




Exit vl> CCiMXlT 



Alter FCW to 
nifer to file 2 



File control bit* 
of file 2 to SI 



TOKBB -^ 



TPTT 



d 



If buffer available fo 
file 2 reduce pool 



Available 



Not available 



U 



Restore fUe 2 
control bltf 



Alter Few 

to mttt to FUe 1 



Few control biti 
of file 1 to SI 



CPY6 



js2 



Restore file 2 
contTol bits 



Alter FCW to refer 
to file 1 



■ife 



File control bit* 
of file 1 to SI 









TOKBB 



Restore file! 
pool buffer count by 
reducing it hv I 



Available 



not available 



Set stash switch 
(XEOB) 



BCKB3 



3E 



n 



Set E0I3 SW. 
Notei should never 
take thi* ttep 



I 



Exit via "NTS" 



Increase pool buffer 
count by 1, since 

nrxtt buffer can .be 

'■-^' :m.fTK- nt-.-nn 



COPY-STASH 6 



DEFIN 

Define a Buffer 
Pool 



r 



DEI 



Specialize 
lit BPCW 



Place buffer liie 
In 2nd BPCW 



SIGN -= 1 

ADR. » L ([POOL -f 2) 



S - 13 



POOL ERROR 
TSX AT 

xxxxx 



CANNOT 
PROCEED 



PERR 



Print, Print, 
Stop 



X 



0E4 




Enter command 
In 2nd BCW 



(lORT POOL,,N) 



■^^ 



Chain this buffer 
to next buffer 



Ym 



Enter W.C. In 
lORT command 



I 



Enter no. of 

buffers In 1st 

BPCW 



Specialize adr. 
of 1st BCW 



ADR. - L(POOL) 



Prepare for 
next buffer 



(PCS. 3-17) 




mm^ 



Specialize 

adr. of 2nd 

BPCW 



ADR. • L (1st BCW of 
Last Buffer) 



TRA 3,4 



DEFIN. 



iSb 



RELES 



DISCCiN 



Release cotinccted 
bu fie r 



S 



Disconnect present 
buffer 



Set disconnect 

only Indicator 

(SI 21) 



J 



Set release mode 
Indicator 




TRi 



TRUNC 



Truncate held 
buffers 



5 



rnSca! I 




Locate first buffer 
in hold chain 
(FCBW 3) 



POOLRD •^ 



Kctum 
buffer to 
pool 



CKCIV 
CKGIV 



IfClVUO OB 
reinitiate 



Rl.l 



1 



Plae« location of 
next buffer in hold 
chain t^to FCByS 



JiNl'lN 



TRUNC 



Truncate or hold 
buffer in use 



->o 0-> 




Enter buffer Into 
re-generative 
chain 



ENTH1.D 



Enter iittathed 
buffer Into hold cha 



Set disconnect 
only Indication 
(SI 21) 



Extract location 
of buffer to be 
released 



1^ 



POCJLRD 

rosmnr 



Return buffer 
tc pool 



.^ 



Set FCBW3 to 
refer to pool 





CKCIV 
CKGIV 



If givup on reini- 
tiate 



Reset command 
discotinect indica- 
tion (SI 22) 




Reset lOXYN In- 
dication (SI 32) 



Reset discon- 
nect only, EOB 
hold indicatiom 
(SI 21, 2$, 27) 



T 



Exit-TRA 1, 1 



DISCON«R£LES 



ei 



ENTRY 

Common entry 
to all lOBS 
routines 



I 



Turn on 
Sense Lite 1 



s 



Save program exit 
and calling 
sequence locations 



s 



1st word of 
calling sequence 
saved in pertinent 
locations 



s 



Content of 
FCB W2 (S-17) 
placed in SI 



T 



Enable CWT 
and EOF traps 



s 



Find location of 
desired routine 



-&(?^ 



ENTRY t 



92 



CTBUF 



Get a buffer and 
attach to output 
file 



OBTIB 

Force output buffer 
to be released to 
pool 



^ 



Locate: beginning 
of out]nit file 
chain 



Set free up buffer 
indication 

(SI 20) 



hO 




TOKBB 



Buffer count adjust' 
ment 



Locate file, pool 
and bring out first 
word of pool chain 



q ntOi'O 



Ceto 





Locate pool and 
bring out first 
word of pool chain 



Print, Print, 
Stop 



I^KOUT 



Illegal file 
use cannot 
proceed 



Tutti on wait lite 
(Sense lite 2) 



I^ 



Prepare to checl< 
activit/ of files 
starting at tliis point 
in output file chain 




Print, Print 
Stop 



lUegal file 
use cannot 
proceed 



OMtV TMIt 

ouTPur riuE IN CHAiM I 



Extract location of 
unit control block 




/5YEOT 



EOT Handler 



-*o 



ACTV 

FTTT 



3ive this unit high 
3:riority 



Extract location of 
next file in output 
chain 



L 



Trepai^TS^BJscir 

file activity of 
rerraining files 
in 6utput file chai 




Turn off wait lite 
(sense lite 2) 





CTBUF 1 



84 



Otily 
jfrccing up buffer 
(SI 20) 

No 



Held 
(SI 28) 



Yes 



Yes 



No 



Location of availabl : 
buffer to use chain 



E 





Ye» 


No 


TOKBF 








En«' •^j 


Internal 
7 


Buffer count adjurt 
ment 


Normal 


X.^X' 


1 


L 








CTBUF 
1-A 



Stort code 7 into 
prefix of last held 
buffer in chain 



' Identify lait buffer in write hold chain 



Form location of 
lORT -for tins 
• buffer 



I 



Place location of 
ilatii word 1 into 
available word 
loca lor 



I 



Update pool to rcfo 
to next buffer 




Reduce buffer size 
by 1 to allow loca- 
tion for sequence 

word 



Set effective 

size 
into available 

word locator 



Reset free-up in- 
dication 

(SI 20} 



Return TRA 1, 1 
CTBUF 2 



8^ 



ISSUE 

IOCS Select 
Routines 



Initialize 
XRB = L file 
XRC = LUCW 




Set alternator code 
equals 3 (prepare fc : 
second try) 




Disable Redundan 

cy 



Ml 



T 



Specialize RCH 
witli location ol 
lORT (BCW2) 




Specialize return 
address to 2, 4 



MXMOD 1 



Mixed mode select 
and posting pre- 
supervision 





XTRAP 
3-F 



MXMOi 



Return to lOEX 2, 4 
(discard noise record) 




Update error counts 
(UCBW 6) 



ISSUE 1 



ISSUE 




Increase block 
count by 1 
(FCBW 4) 




specialize address of 
lORT to L of data 
wd. 1 



« 

rorm unit address 
inlcui:ling mode bit 



izr 



Specialize select 
instrucdou address 



Place current 
block count In dati 
word 1 of buffer 



□ 




Specialize select 
OJ' code to 762 



^pccizlizc select OP 
code to 766 



ISSUE 





URCl 



Next request in 
chain to UC:BW2 
address, if none 
Lo 




URC 



Clear UCBVif 2 de- 
crement, taig, 
address 



POSTR 



Location of last 
word-fl to ttddiea 
oflORT (UCW2) 



Specialize prefix 
of BCW j 

S=not short tree. 

l=€OF 



Location of buffei 
filled placed in 
address of last 
buffer in chain 



T 



Location of buffe 
placed in chain 

to decrement of 1st 

buffer in chain 



IT 



Lo to address of 
buffer placed in 
chain (end ofchain 



Specialize de- 
crement of next 
request BCW 1 



*t^ 




PSTR 8 



Location of buffer 
lillcd to FCBW5 
address (beginning 



Lo to address 
of BCWl (end of 
chain) 



-^ 



Specialize decre- 
ment of buffer 
placed in chain 





ISSUE 



ISSUE 2 




READ 
or 

WRITE 



r 



Return to lOEX 1, 4 




Save Tape position 
prior to EOF mark 
in position of 1st 
dam word 



URCl 



Update Request 
chain (see issue 2 



t 



Find Location of 
Pool 



ToPool 



Release buffer to 

pool and adjust 
buffer count 




No 



_^p 



Prepare to Inhibit 
FUe 




ISSUE 3 



6B 




Locate Pool 



I 



Restore Original 
Buffer Size 



I 



Place Buffer Size 
in 
lORT 



BTPl 



Return Buffer To 
Pool 




^"— we: 



O Prepare for 
setting EOT indica- 
tion in FCBW 2 



Set Priority (UCBWI) 
Equal to teio 



V 

Return to lOEX 1, 4 



Triinsfer 
Beginning 
of Request 
chain to FCBWS 



3 



Prevent changing SI content 
If trap occurred at remit of 
earlier operation 




Place EOT/ Inhibit 
Indication in Trap 
SI Temp. Storage 



Place EOT/Inhibit 
indicatlian in 
FCBW2 



ISSUE 4 



g^ 



JOIN 

Join together 
buffer pools 




Ym 



Yes 



PERR 




PERR 




Indicate 

POOL 2 is 

Joined 


-^ 


Modify 1st BPCW 
of POOL 1 




Modify 1st BCW 
last buffer 
POOL 2 


r- 




1 




Update 

buffer 

count 


• 



BASIC 

IOCS 

NECESSARY 



CANNOT 
PROCEED 



POOL ERROR 
TSXAT 

xxxxx 



TRA 2,4 



JOIN. 1 



•so 



PCX)L1 



' S. 3 



•^4. 



lORT 




N WORDS 

/ ///// 





lORT 



z 




N WORDS 




POOL 2 



^IT IM {0 



.JJ 




lORT 




N WORDS 




JOIN. 2 



9/ 




Inciicalc 2nd try 
allow rcduiKiancy 
printout this time 



■M 



?3= 



Reset redundancy 
indication 



2E 



Invert mode bit of , i 
file hits (FCBW2) 



INVM 



S 



~T r i' ! l c~cmrm»Jy 

referenced by VCB, 
modify mode bit in 
trap si storage 




LKAD 



Clear read mode 
switches (code Indi- 
cation UCBW 2) 



Extract last word 
in buffer 



Indicate 3rd try 
prevent redimdancy 
printout this time 




INVM 



Invert mode bit of 
file bit« (FCBW2) 



jh, t file currently re- 
ierenced by UCB, 
•nodify mode bit in 
trap i>l storlg?*""*^ 



Try Again r 



MXMOD 1 



92. 



OPEN 

Open the 
specified file 




rO 



Y«s 



X 



Set open and 
no EOT code 

(sj 34-15) 



RETURN 



Set no EOT code 

and not 

Inhibited . 
(sj S *- 15) 



CA60 



(File Name) 

Not available 

for inltlalliatioi 

press start to 
'ontinue 



OPIO 




Print, Print, 
Stop 



Open count 
exceeded - 
open not possi- 
ble. Press 
start to conti- 
nue 



DESTRY 



Release buffers 
to Pool 



sr 




Note: Increased by- 
one to allow increasing 
pool buffer c<xint whc n^ 
last buffer ustsd 
for destructive 
read 



Note: Set 
YES Input Indicator 
:^"^[SI 7 8) 



Set PTO bits in 
S.I. 




Open 
1"B" 



Set sequence count 
■¥l as number of 
available buffen 
clear seq. count 



-£> 



Set regen. chain 
Into sync chsiln. 
Set regen. chain 
■=<0 



Set mode 



j^ (destructive or not) 
■^ into FCBW 3 



pre fix (Sign) 
iinus = keiain 



RETURN 



OPEN 1 



93 




Please File 
Address in UCBW 1 



Set FCBW 4 
Decrement 
(Sequence count) 



Set Prefix of 

UCBW2 000 

(Read) 



1^ 



OPU 



Get Reel Number 
from 
FCBW8 



Print, Print 
Stop 



Unit xxxxx 
(File Namf i 
Moun^^j'S 

Operator action 
Pause 




No 



■^ 



Set Prefix of 
UCBW2 to 100 
(write) 



Set FCBWS 

Address (rj'nc chaif) 

to Lo 



NDSF.L 



Test legality 
of unit (UCVV lo- 
cation and avail. 

f OPEN \ 



OPEN 2 



Dease 




Set File Density 



NDSEL 



Immediat 



FNLBC XJ 



Find Location 
of Pool 



JQS^ 



mmy 



Initiate Read 




NDSEL 1 



Rewind 




Store Location of 
file into location 
checkpoint tinlt 



LABOO 



Label Actlon(Read 
and Check current 
iabeL write new 




LABCI 



Label action 
(Readn and ched 
current label) 



AMIPKI 9 



Off 



POOLRD 



Release input 
buffer to pool 



Reduce count of 
buffers logically 
in use by file 



Tnr;in.<^ 



Reduce buffets in use 
inclement logical 

use: 



JBOSOOLt 



File blu to SI, 
clear right 
half 




Input buffer tiised in ttaih at internal output buffer 



Adjust buffer 
counts 



Yes 



"^ 



I' 



Return - TRA 1, 1 



POOLRD 



^6 



RDSEL 

Enter 
Buffer Into 
Request 
Status 



E 



WRSEL 
Enter 
Buffer Into 
Request 
Sutus 





^ WRSEL 



Store in BCW 1 

decrement L of this 

buffer and address 
LO 



Extract location 
IJuffer to be place 
lln Request 



Add new buffer to 
end of existing 
request chain 




TOCLOS 



Release Buffer 



•^ 



Handle End of 
Tape 



vrrmr 



Switch File controls 
from file A to 
file B 



-O 



CPYG 



Handle End of 
tape 



Switch File controls 
from File B to File 
A 



Place L select loutii 
and L of buffer re- 
quest in VCW 2 




Exit at 1, 1 



RD SEL <: WRSEL 1 



97 



WRSLH 



Write held 
buffer 




Note: Writing buffer originally laved foir this file will not affect buffer couat 



Locate 



Buffer 



Place original 
buffer size in 

ENTTN "^ .S.TTT 



Enter buffer into 
regenerative chaii 



Advance block 
scqucnc count 



Exit at I, 1 



Adjust buffer 
count 



wf WRSEL 1 



RDSEL- WRSEL 2 



$i 



R.DWRT 



I aster conlrol 
routine for read 
and write 



Locate Buffer in U3e, 
If nonp, locate 
pool 




ic t INITIAL Con- 
MUons satisfied in- 



dicator (SI 25) 






Bring out IOCS 
command save 
transmit loc. and 
WDCT 



lOCP, lOCT, 
lOSP, lOST, 
lORP, lORT 





Yes 



TCH 



IOC P. 



TRUNC 



TRUNC 



Disconnect buffer 
via truncate routine 



Reles 




irn 



es 



Write 



Release connected 
buffer 



Read 



Pickup lo- 
cation of next 
command 




Change to lOCT, 
set disconnect and 
EOB Indicaton 
SI 24, 222 




Prepare Exit 
Location 




Vcj; 



■^ 



Substitute direct 
address for Indi- 
rect address 




P ickup Buffer 
From FCBW 3 




CTliUF 
CTBUF 1 



GET buffer from 
Pool 



Sync 




Sync 1 



Get Next 
Buffer 




Write 



Read 



i^ 



Pickup Buffer 
control word 
from FCBW i 



Clear XRA 



d 



Set location of 

first available 

word to transmit 

loc.-jtion.if none 
available set lero 



Read 



RSRD 



Handler for lORY 
and lOSY reading 



asiiis. 



RSWRl 



Handler for lORY 
and lOSY writing 




1 04 



Reduce available 
word count by 
command CT 



Yc$ 




TRUNC 
TRUNC 



Disconnect buffer 
via truncate 
routine 



Reles I 



Write 



Reles 



Disconnect Buffer 



SCT criUCR *«T 




Bead 




Save number 



Required 



Set generated 
command indi- 
cator (SI 23) 




] 



Form count to 
execute on this 
buffer 




Make'xnlmber of 
available Word( 
« ' 



i 



Turn on EOB 

Indicator 
(SI 24) 



Save number of 
available words 
in liistory 




RDWRT3 



/d* 




Place location 
of In word In 
command 



Set IIOXYN 
executed indi- 
cator 
(St 32) 



Compute address of 
Ust dau word to 
be transmitted 




Store address 
formed in trmsmit 
loop 



Adjust locator 
addren (BCWl) 



d 



Compute Address 
of last location to 
be transmitted to 



I 



Store address formec 
in transmit loop 



\L 



Save location of last 
word + 1 for 
history 




/•a. 




BOUND 



Print, Prlng, 
Stop 



Illegal trani- 
rnit 

SSmnot proceed 



Tiantmlt between 
buffer and woricing 




EOB Transfers, 


No 

> P 


Re let EOB 
indicator 
(SI 24) 




location spccirX 




Tcs 







Locating therefore 
set hold Indication 
(SI 27) 




Read 



RDWRT 5 



lOSY 




Reset 
Genera tod 
Command 
Indication (SI 23) 




ScUip next 
address of Work in; 
storage for trans- 



Set WD CT equal 
to number of re- 
maining words 



I 



Execute Gcncrateii 
Command 




Yes 



Set EOB 
lOCYN 
Interrupted code 



Set EOB 
Indication 
(SI 29) 




/rdwrtA 



FEXIT 



i 



Prepare History 



Held 



K^ 




Hook 




«\. 


Yes 






7 ^ 


Connect Hold 
chain to file 
before exit 




28)/ 






No 









Load Exit 
History and take 
EOB Exit 



T 



COMXIT 



i 



Set end of 
buffers code 



RDWRT 6 



/CJ-f 



Read 



Buffered Read 
Routine 



I 



Set Read 
Switch 



T 



Save location of 
EOF. ERR 
routines 




FN^T'.C rr7 No 



Find L(Pool) 



EOFER 



EOF Exit 
Kindlt 




BORilF 



BORBF 



Attempt to take 
on<! back 



Exit 



iuccetsfitl 

4*— 



Unsuccessful 



Q 



RDWR 
RDWRT 1 



4p^ ^'^ ' <iJ ^ • 



Master 
Read routine 



^ 



Yes 



READ 






REW 



Rewind 



Routine 



I 



Condition 

Routine for Rcwiril 

(IR 1-3J 



Unit xixxxx (file 

Name) 
Reel xjcxx 

xxxx records 
redundancy histor 
xxxx > 



erase /pe I'm 




Nov 



Set ndsh;l 

Seq. to REW 

or WEF 



I 



!>ct initial 
conditions satis- 
fied indication 
(SI 25) 




FNLBC 



NDSiL , 

TsDSELi" 



Find Pool 



Yes 



<3- 



Re\vind/ write end 
of file 



WEf 



REV 



Set no inhibltard 

indication 

(SIS) 



EOT- WEF 



WEF. 

WritiigOE 
Routine 



Condition rou- 
tine for EOF 
(TRl = 7) 



Exit via COMXIT 



Exit via 
COMXIT 




UNBFO 



UNBFO 



Unbuffer output 
file 



h' 



REDCT 



3E^ 



Unbuffer input 
file 



Print redundancy 
history 



'^-*----- :r- - -•- — — —««.« 







Exit 
"a COMXIT 



REW-WEF 



to6 



RSWR 

Handler for 
lORY and lOSY 
writing 



T 



Arbitrarily set 
lOSY indication 

(SI 33) 



lORY 




Set EOB dis and turn 
o£f lOSY indication 
(SI 22, 24, 33) 



lOSY 



Subtract command 
WDCT from avail- 
able word locator 



Yes 




Yes 



/rdwrtV 



\z) 



-^ 



Yes 




'RDWRT^ 
3-b 



Set generated com 
mand indicator 
(SI 23) 



Set up generated 
command 



Set EOB indica- 
tion (SI 24) 




. /(dwrt\ 



RSWR 1 



f<^? 



SETWR 



Setup to write 
ciutput buffer 



i 



Find location of 
lORT for buffer 
in use 



-TRS 



£L 



Set location of next 
available data word 
in lORT 




Form word count 
of buffer and place 
In lORT 



Return - TRA 1,4 



Siv« location of wotd 
used for check> 
summing 



IncreaK locution 
of next data 
word by 1 







Reduce word 
count by 1 



BTPl 



Extract buffer 
si2e from BPCW2 
and place In IOR1 



^ 



Buffer to 
Pool 




BCKBF X Yes 



^"MMTT 



Form Checksum 



Store in laR 
data virord loca- 
tion 



Q 



Adjust buffer 
Counts 




/08 



SHUT 



De-activate file 






h 






Set Initial con- 
ditions satisfied 
(SI 25) 






•1/ 








y/^ Opened ^SQfes ^^ 
S^^eserve file (Sl^ ^ 
^<S^,22)^>^ 


Increase open 
cottnt by 1 to re- 
store original open 
count for close 


— 


^Y^'^" 




^^^ 


k. Internal ^ 


^"^ 

>--^ 


/t^ 





No 



Checkpoint ^s Ofes 
(SI 708) 

No 



Notopen 
/SI J) 



Yei 



SHUT 
2-B 



No 



UNFBI JT" 

"jNBni 



Unbuffcr input 
file 




SH2 



Print Redundancy 
History 



Unit xxxxx 

(file name) 

Reel xxxx- 

xxxxx-recon 

redundancy 

liistory xxxxx 

recovered xxxxx 

erase/ perm 




UNBFO ^ 



UNBFO 



Unbuffer 
Og tput Qle 



>WUT2^ 
— n INPUT j 




SHUT 21 
OUTPUTI 



SHUT I 



;o^ 




SH4. 1 



Reset reserve, in 
hibited, rush, 
givup, rush his- 

' i:- ' -— - 



Reset OPEN 
Indication 
(SI 3) 



Exit (To dose) 



S1UT2 



tea 



mxcL 





TRUNC 






TRUNC 


y/^ ^S. Yei 

w^ Output (SI7G8)^^ "C^ 


Truncate buffen In 
use 


1 No 








AELES-DISCON 






Disconnect buffers 
In use 




1^ 




J 





Sum buffers in 
use ccaint and 
sccjucnce count 




Place number of 
buffers in scqucno 
count (FCBW 4) 



s 



Clear use count 
(FCBW2) 



Reduce number of 
buffers by 1 



h 




Locate END of 
Re gen chain 



Place location of 
beginning of sync, 
chala into last buffe 
of regen chain 



ct sync chain (FCBW S) 
nto regen chain 
(FCBWl) 



y 



ICLl 



*t 



Set sync chain 
(FCBWS) - Lo 




Place location of 
end of sync chain 
into first buffer de- 
cp^nxent of regen \ 



J 



•-Q 



/// 



SYNCR 

Ceu a Euffer 
from the 
Executor 



EOFEX 



Set Redundancy 

and EOF 
Switches 
fSI 34. 35) 



1 



Set Ruth Priority 
Indicators 




Yes 



i%. 



II 



Synced buffer 
to buffer in 
use address 



I 



Reduce buffers 
ahead, increment 
use 





EOF Exit 



Set Waiting Lite 

On 
(Sense Lite 2) 




X ^XRead ^V,^^ Yes 
w^S[^/^^ Completed? ^*ii^ 



Turn wait 

Lite off 

(Sense Lite) 
z 



BORBF 



BORBF 



Initiate Read 



Buffer VOT 
available 



Buffer ]gBi>available 



ible I 



££IIL 



GTBVF 1 



Force output to 
give up buffer 



3 



SYNCR 1 



//» 




Advance count of 
buffers used this 
read 



I 



Set locator addrc; ; 
to L (flint data, wc ' 
word) 



Turn off Indicators 
(SI 34/35) 



Set locator de- 
crement equal to 
word count 



DISCON 




EOF Exit 



ERR 
Exit 



SEj 



£0. 



Sequence error 



Reduce word 
count by 1 (acoaiht) 
for sequence wor J'P 



Find location of bloc t. 
sequence word 



SUMMIT 



Setup for check- 
sumning omitting 
checksum word 



Form folded 
checksum 




ERR Exit 



CKSUM 



Error 



/i3 



4AJ/&A0 




BORBF 



Last Synced 
Initiate another 



Buffer 
available 



T 



jV 



Set Reinitiate 
lau:r bit 

(SI 26) 





Store updated 
sequence number 
In FCBW 4 



Bulfer flvillabla 



URWEX 



Redundancy 
occurred, error 
print exit 



ERR Exit 



Return 1, 1 




SYNCR3 



//^ 



TRUNC 

Truncate an 
output buifer 



1 



I 



Set truncate mode 
(Reset SI 31) 



re:les 



RELES 



Held buffers 



Release connected 
buffer 



o 



Buffers in use 



TRLl 



No 



SE-nVR 



TR2 



SETWR 



Setup buffer for 
output 



wn 



M^TY^ 



WRSELl 



Write Buffer 



TR3 



■^^ 



Set file reference 
to pool 
(FCBW3) 




Buffers (SI 27^ SgJ'^^ I 




TRl ^ f 



Locate firrt buffer 
in hold chain 
(FCBW3) 



WRSLH 



£ 



WRSHL2 



Write Buffer 



Place location of 
next buffer of 
hold chain into 




TRUNC 



UNBFl 




Disconnect buffc ■ 
in use if any 



'4 



UBI 




Locate next req. 
and end of chain 



Lo to address of first 
request 



Yes 



'^' 




HfiL 



Form new sync 
chain starting with 
location of 2dn 
request 



Save location 
of fiist buffer 
in syiac chain 



Location of 2nd te- 
qaest to beginning 
of sync chain 



Location of 
first in sync chaii 
to last buffer fron 
request chain 



Location of end of 
updated sync chait 
to decrement of 
first buffer 



UBS. 2^ 



l<2- 



Turn on wait 

lite 

(sense lite 2) 



ACTV 



ACTV 



I 



Comjilctc last 
request 



Note: At trap this request will be entered into <ync chain 




Clear sync 
counter (synct) 
and delete switch 

(Temp) 



I unbfA 



UNBFI 1 



//$ 



UB4, 1 




Extract words 
specified by sync 
chain (FCBWS) 



NDSEL 



NDSEL 



BACKSPACE 
RECORD 





■1 

Reduce tyncCT 

by 1 



Increase sync coun 
by 1 (count of BKS 
needed to restore 
to this condition 



Tape position prior 
to thlt EOF to UCB\\|3 



-^ 



Clear TEMP an<i 
uniihiblt file 
(SI 5) 



Update sync 
chain 




TOCLOS K~^ — crcTTZ- 



Release tiiis 
bu£fer to 
Pool 



Pickup tape positi 
prior to EOF from 
dau WD 1 



■i^ 



Save in delete SW. 
(Location Temp} 



TTurnri t 



nn 



UNBFO 



Unbuffer output 
File 



TRUN 



TRUNC 



Truncate buffer 
in use 



UNBF l^ 



£ 



Set wait lit e on 
(Sense lite 2) 



UNBF2 




Tuni off wait lite 
• (sense lite 2) 




Output file EOT 
Handler 



wrr 



ACTV 



fe . Activate priority 



a 



V 

Exit 1,4 



UNBFO 



/n 



WRITE 

Buffered 
Write 
Routine 




NOPXIT 



Find location of 
commaod litt 
and exit 



Exit 



FNLBC 



Find location 
Of Pool 



pRI^lYRT 



RDWRTl 



Master control for 
read and write 



WRITE 1 



M^ 




CgHbol t^t^m 

hl«cMd<l) 
Oat>cw4 
He tiMtf tMontH*' 



Clwck lot 
Job" card 



BC;AR0 (Prep) 






.»„pftS'«^ 



Check for 
••Fll^'card.' 



■mrr 



i. Select loput 

bufr«r 
2. prepare to roA 



AC TV (JOEX) 



l.Kuid Itt card 
2. wait for trip 



iChach for 
tape check/EOF 
2. Move 2 word) 
u> output b«(fer 
3.S«lcct Mit 
input buffer 
•I.Prcpara to 
ma J 



ML I I'" 



CtiL-ck cltan- 
M^ net activity 



SAVE 



S.lnltUte rc»- 
dins Zixfctrd 
G . Move re- 
maining word* 
of lit buffer to 
output buffer. 



3- 




XTRAf (IMX) 

ITIUI'I ""I 



Ti.p 

teVMOUt 



ACTV (tOEX) 



I 



2£ 



K 



check chan- 
nel ftctlvlty 



H)OB (Prej>| 



2552 



Piectu |»b 

cird dtti 



T 



iSSBi 



Enamlnc een- 
figtiration dc- 



OtTTrPtf 



1223^* 



iSSSl 



Scan card 
fields ai re 

qiltrcd 



KTIif. irrr, 



Convert BCD 

to bltmry M 
rcquirgq 



i^^^M^ 



K^;P!]i(Tr, 



Walt for trap 

■■■— rKSaaal 



[ 



l.ChecK for 
Upe check or 
EOF 

2. Move 2 word 
til output buffet 

3. Select ncMt 
Input buffer 
4^ Pjcp^r. to 



5. Initiate rea- 
ding 3rd card 
6. Move remsl- 
ning vrardi of 
2nd card to 
output buffer' 




^ 



7g&i£sa 



Ptoc<tl Bl< 
card datt 




SAVE (lOtX) . XTRAP (lOEXJ 



nssc 



Trap ■ 



ACTV (lORX) 







. » 


Check chauicl 
activity 


1 


1 1 



BSCAN (Prep) 



SB 



Scan card 
Heldf u n- 

qilifqd 



BCONV 



(Prep) 



Convert BCD 
to binary al 



-T 



BA5CN (Prep) 



I/O wdt avlft 



BSCAN- (Pmill 



■^ Scan card fldl^ 
iticd ^ 



11=; 



BCONV (Prti 



£££ 



CoovaRBCD 
loWuiy M 
reqnirvd 



\J> 




TRAP 



-IIIVJT^^ 



nroNV fPrep 



^ Convert faom 
BCD to binaiy 



ttt 



required 



BCVR 



a 



£»p) 



Convert from 
bitiary to BCD 



BCOO 



Prcf 



Set up image! 
and print pre- 

lUt . 






K i 9^ iiff - 'ii 



Convert BCD 
to binary a< 

required 



J 



i 



BCVR 



jProp) 



jgi Convert binary 
^ to BCD ai re- 

'T^i^'r?'^!! ■■ 




BC90 (Prep) 



Generate BCD! 
I/O unit dctigl 
nation as rcq. I 



T 



BWRT (Prep) 



Print at re- 
quired 

I 



f20 




SAVE (lOEXj 

Save peitlDent 
Inform* tloB 



XTRAP (10EX» 
Trap Saqiaaiice 



DCSOjIj, (Prep) 



?itpToccaot 

wtap-iq* 



BDZO (rVV-^if 

mnwTirr''i — " -- ^ 

flove file blockl 
kad load prograil 



BPRNT 



(lOEX ) 



Print as 

reqtilred 



PAUSE (lOEX) 



lint and halt 
a* required 



T 



.^ To main prognm 






TSX 
PZE 
PZE 


ATTACH. ^ 

pool 

UST I. . 1 






LIST I 


PZE 


FOE 1 








Note: 


FUE 1 isunJabfl^J. 


in)Htl jnj 


icunteJ 



flOBS) 



ENTRYl 



Common «nuv lo rou- 
lincl. Perform! 
InUUUiation 



(IOCS) 



Tr»n(fer to "BSCKS" 



Check for Hlc count 
of icro 



1. Repeat Above 
•tep until specified 
nntnber of BSF'fCOm 
pie ted. 

Z, Prepare for dumm ' 
read across EOF marl 



Wait for trap then set 
no Inhibited lodication 
restore fUe type, and lel 
lummy sync chain to 
tero 



BSCKS 



(lOBS) 



Cetermin 
epen-' 



Cieterminc If Input 
or output 



E Kit from ffoutlna 





(lOBS) 



\ 



NPSEL ^IpEX) 



hPSELl 



Backspace file 



PDSEI. 



(lOBS) 



I' JJSEI.-WRSEl.i 



Place locadoB of 
»slcct routiBa In 
trCBW2 decKincnt 
iud OOOO's la 
■ ddrcH (dummy 
buffer) 



Common exit routine 
to main program 



1. Check for eali- 
tence of request 
chain. 

2. If more than 1 
requelt In chain 
add all buffen 
except first In re- 
quest chain to be- 
ginning of lync 
chain 



Adjust sync count 
to ntprcient novtbt 
of biekipiu n- 
cordi rcqulfttd to 
position tape to 
point of use by 
routines {0ot 
buffers tynctd) 



Continue abov* 
step unltl all buff 
in sync chain arc 
piDcatsad. 



Exit from RmtSnc ' % 



DlSCCN (JOBS) 



DISCON'^REUr" 



Extract location of 
buffer to ba rallaase 



Stt FCBW3 to irefcr 
to pool 



POOiilO (lOBSJ 



POOIRD 
Reduce count of 
buffan In uac 



BTP2 (lOBS) 



Move buffer from 

use back to pool 
chain and update 
pool chain 



X 




BCKBF (ICBS) 



ACTV 



ACTV 



J^M. 



Complata last 

re (ptc ft- prepare for 

I/O operation, 
check ahannel 
activity 



(lOBS) 



ISSUE 1 



Set up lelact op- 
erations and •*•' 
cutt them 



J 



RDW HOEXI 



Noop for read 



TOClJOS 



(lOBS) 



Adjust counta of 
buffers requeMied 
and buffen In use 
(Inltlallsa) 



POOUU> C'OBS) 




ACTV i^OtX) 



_ACTy _ 



Frepara foK I/O 
f^wratlon, check 
chaanal activity 



ISSUE 1 



Set up select 
operatiotts anl 
execute them 



T 



RDW (lOEXI 



Noop ior nadl 



N 
M 



ENTRY 

rrrrrr 



(!0»S) 



Common entry to 
ro'itlnei, perform 
Inldalliadon 



(lOBS) 



(lOBS) 



COPY- STA SHI 



Jl 



1. Ch«ck to lee if both 

2. Truncate output 

buffer. 



1. Tranifer bufler In 
uie by Input file to 
output file UK. 

2. Truncaie traiufecred 
buffer 



Find Bitociatcd 

pool 



TSX 


COI>Y,4 






PZE 


FIlEL.nU 2 






Conddont; 








1. Output (III htt butttt In ■» 


■tatui only | 


2. Input file k 


II only buffer In 


HI* 


to tnmfer, 


word! prcvfoutly located with " 


N" 


type 


command 









. Find location of 
raniferreri buffei 



('9,?a 



Set trujtcau mode 



Determine If 
mffcr !■ to be belc 



TrantiTcr to 
"WRSEL" 



Set FCBW3 to 
refer to pool 



(lOBS) 



REUS 



Determine If held' 
buffer* arc to be 

truncated 



!>LLWH 



(IC8S) 



Form lORT word 
count 



J 



wKsar* (lOBS) 



Enter btiffcr In use 
into requttt itatui 



AC TV (lOEX) 



J-* 



^^S flOBSf 



AC TV 



PreihtK for I/O 
opeiratloiw-chedi 
chaitncl aollvlty 



ISSUE+ (lOUS) 



TOorr 



Set up telcct 
opcradons and 
execute them 



J 



RDUN (lOEX) 



Peniilt re.:kiiideM:v 
tn|. 



Relet mlic. Indl- 
daton 



et FCBW3 to refer to 
ool (toput buifer) 



TRUNc' (laHJTr 



TRUNC: 



Set iniiicate mode 



Determine II buffei 
li to be held (can- 
not occur Ibr copy) 



Tranifer to "WRSEI 



REUS 



(lOBS) 



Determine If heW 
bufferi are to be 
truncated 



JIHIH"' 



(loas) 



Form lORT word 
count 



ojusd. 



ilOBgl 



Enter btiifer In tuc 
Into requeit itetua. 



ACr^r HOF.K1 

' ACT\' 



Prepara for I/O 
opera dona check 
chenael icbylty 



ISStff-t (lOBS) 



Set up lelect op- 
cratloiu end exe- 



^ cute then 

I ^J 



r 



ircrrc |f"«l 

REUS I 

Reset mlK. Indlca-I 
ton I 




COMXIT 



:OMXIT 



(lOBS) 



■ommon exit loutiiia to 
mojD program 



POOLRD 

roouu) 



iSSll 



^ Reduce c:ount of 
"▼ buffen In uh 



h 



BCKBT »OR^) 



^dJuM pool bailer 



r,rnn, fl^Rt) 



CKClV 



petermtne if anotfac 
buffer ihould be 
filled (aiiume no. ) 



(lOK) 



F.NTPY 

Comnion entry lo 
roiiLim.-i. Pciomii 



(lOBS) 



1 %:t\v location of ID} 
F.KK roiilinel 



k. GiWip imticalii Tl 



KDWRI 



IM.BC tlQgS) 



Fln<J locadon of 
pool 



±. 



(lOBS) 



I .Evtfoct i>ool lucnlioii 

LoniiDiiiiit, snvc irni>5 
mil lot.ntion unJ wcr< 



I ClK'tk l.ull.'t lor 
;i%<u|l4hl(' wonli 



I Unlncf ItuilOf Je- 
crcni.MH (Wi).CT) 

2. Aiijii5i locator fl*IJrc' 
(Icx-'iiikMi ol iwxl wor 

). Set lip (mn^iiiU 



Irom hiilfer lO loctilio 

S|>UClfl«tl. 






nclcnninc whitt to ik* 
ill ccttiplcllon o( 
conttttunU (icrmltmte) 



I 



SYNC 



(lOBS) 



S YNCl 
1 



Vtorr buffer Irot 

t>iic chnin lo iisi 
2. A^rjtiii buffer 

coiinl {rCDW2) 
\. Opdnltf nync clicAii 
t. Setup avMllitbli 

word Iccntor 

(BCWl) 



J" 



' KBR P' " (lOM) 



Place iitiiitber of 
iivailnhle words In 
ikcrcnicnt of conti 

ZZ3 ■ 



(lOK) 



r»x 


MAO,* 


rze. 


FIU,,K>1 


PU. 


tOf.,lM 


lORI 


*,.** 






1. Initial triiil 




2. Mom lh.h 


1 IllleJ bufHt In fync 


chain 




J. Nocnot.«E0F/tOT | 


4. GOk > 





B1T2 (IOH| 




Det«rmln« whtthcr 
or nDI •noufth buffe 
are In rtqucst itaui 
te hecp tile ahaaii 
and act accordlngl' 



(lOU) 



Ccnmion exit routine 
lo main proftratn 



RNTRYl 



Common «nurv lo 
roiillnei P«Momi» 
iniibalWaOon 



',S^^?. t, l^P^i', 



:UD$E1 



I. Check to !•• If mul- 
tiple aie.** »tK to be 
loi^J thfouth th« uwo* 
> (Ut lUt 



t. Chcclt to t«t l( 111* 
;)pencd i»f«vtou»)y 



n 



I Chack U Mc U (>U 
ii Input or output 



1 Trinifar to Ihut 
routine 



1 . Octcrmln« ir all 
Ii-«lrr-l filr4 ara cloiad. 
\l no ItH'p. ir V'CI cult 



CAM, (lOBS) 

C.A50 



Gf-X locltJon of 
riJe 



nJLBC 



(10 BS) 



Find Pool 



ADIBC (lOB^t 



AblBC 



Ad]uit pool buffir 
couiit 



SHUT 



(lOM) 



S HUTI 



1. Chack to tac If 
flla li opafi 



♦T* 



1. Tranlfcr ID 
"RJCDCT' kmUm 



itCMMT 



I 



COMXIT 



JI0BS1 



common axlt foudnc 
lo maln'piogTBm 



Detarmiita whether 
remind or ivwlnd 
and unload was ca4*d 
for 



l.Reret open tndl 
cation 



PTw nu 

Con Udanii 

I Inpit (lie 

2. talftn !■ rt<|OTM 

1. ladtn li> tr" 

4. Ualshollail 



ilnpp (lOBSl 



UTIBFIl 



Traniler lo "DISCO 



1. Check [or eiill' 
tence of requcit 
chain 
2. If n«rc than 1 re 
quest In chain add 
all buffera aKcept 
(Irji In reqmi' eh«l 
IS bttnnlnii sf lync 
chlan 



DI ISCpN IIOBS] 
mSCON-KELES 
EKtracI location of 
buffer to b* nitaae I 



l«t FCIW3 to 
refer to pool 



POOLRD CO**) 



POOIRP 



Reduce count of 
buffeti tn iMo 



BTP2 (lOBS) 







1 


Move butlar from 

xtei'p«trsSoi 

chain 


1 


L_.,. 


1 


ItCKW (lOBJ) 






.1 


AdJuM pool buffer 
(BUM 


f 




1 



Aiijuit tyQcoDunt to 
wprfwnt mimti<"f nl 
backipaea ra cords 
required to porittn 
upe to point of ut« 
by roudnat (f of 
bufftrt lynctd) 



CondAiH flbovi 
■tap ufiUl all bufJar 
In lync chain m 
prociMad 



Complata lart ta- 
queit-prapara for 
1/0 opatation-chcc 



ISSUE+ t'O^S) 

IssH 

Set upialect opar-l 

atloni and aiiectita | 

them 



RDUN (lOEX) 




irociX)s 



Exit from routine 
whan count equali 



jiisiii 



Adhitt ctninti of 
buffera Mq[a«n*il 
imd buffer! In uae 
(lalllellNd) 



fooum 



tlOBSl 



Retbce count of 
butkm In nm 



1 



&TP2 



»OBS^ 



Move buffer (rom 

use back to pool 
chAln-tupdata poo 



-T 



BCKBF (108S) 




NDSm 

Perform bicklpacc 

recordi 



-msrr 



JIOBS], 



Print redundancy 
history 



3- 



, wm. i'9Pi, 



NDSEU 



Set up select 

2. Rewind 

i. &et tape posltloi 

SouDts to lero 
.Set density at 
rewind Indicator 



J 



F.MRYL 
Co 



-C'.go^.; 



re 



mon enir) to 
nri Ptfrfcrni 



Bf.'.V -^ (lOBS) 



REW-Wtl 



I C'cck lo %cff t( file U 
I unltbcllcJ aivJ open 



ClivcW Ic we K lllc is 

OUt)>llt 



1 



(lOBSj 



T»X 


MW,4 




m 


riu 




CnnUllam 






1. OUIIHll 


fli« 




i. htlHn 


In t«^«rt 


chain 


i. lurtet 


■hum 





Trnntfer lo Mlcdt 
roiitinu (iion-ilila) 



Set no inhibited IntU- 
cnUon 



rw 



Fimi Poo! 

1 

UNUrO (10BS) 



Transfnr to trunC4ic 
routint to trunc»t« 
buffcLlBiU* 



Chvck for waiting 
rci|UCt*l( and intUfy 
tttcm 



Check for EOT 



JJOMU 



Set tiuncato moOe 



Determine if buf* 
icr !■ to be held 



^iFCBW) U 
r«(«t to pool 



RELES 

rnrr 



(lOBSj^ 



Dctermltic )f hcUl 
buffer* me lo be 
tnincnted 



SETWR 



(loas) 



SEtWB 



Form lORT word 
count 



W^Siri, HOBS) 
* ~WWSEt ^ 



Enter buffer In um 
Into f«c|ii«*t . 

ftltUI 



T" 



s 



lit us (tOlt) 

Rent MI>E. Indl- 
cHtort 



(lOtXJ 



ACTV 



Pnptn tor I/O 

optniloni. Ch«cl< 
ch«nn«l ■ctivlty 



1 



issut* 

1S5UE4 ' ." 



JSSI 



Setup Klsct opcr- 
Atlont and execute 
them 

I 



RDUN 



llOtX) 



ri 



Pirmlt ndun- 



NVisKL' 



NDSEli 



JM& 



Set up Mlect 

IrtHlnictlon 

Rewind 

Set Upe pOiltloi 

counts to lero 

(IP.) 

S«t dtniicy 11 
Mwrlnd Indkator 



* 



i^ 



asm. 



" W t VT 



WiSi. 



Print redundancy 
hlnoiy 



COMXiT 

c ommoB - gxu muhm 
to mala piofirAm 



J121U- 



tNT KY1._ 
Common enirv' *o 
routine), perfomi 
t n I iln I li a I ion 



I 



S T A SH y (ICRS) 

;6rv-<TA^m 



1. Check to ire if b< 
niet open 

2, Truncate output 
huKef 



1. Determine "CASE" 
o( copy 

2, Chech to set il 
buffer l( connected 



1, Ttantftft Uidtft Iti us( 
hy Input ftl« to output 
file lite 



' . FinJ location of tnnit 
fcrred buffer 



; et FCBW3 lo refer to 
ool (Input buffer) 



COM XI T 



ji 



U&BU-, 



rind IMDctateU 
pool 



TSX 

m 
m 



STASH. 4 
FIU1,,FIU 2 
NTS 



Condltlonl: 
A I. Fll« 2 II nn Intcmit oatpM nir, buffer In DM 
S nttui ODiy 
t 2. Input file, which hei onljr • huffer la < 

2 



to tranifer wtKdi ptrvlonllV located with 
'*N" type command 



♦r* 



J!£2a 



$t:t truncate moJe 



Determine If buff< 
\t to be held 



Tranifer to 
"WRSEL 



S.'t FCBW3 to 
refer to pool 



(108S) 



R£LES 

Delennlne If held 
buffers are to be 
tnmcated. 



MtU'K flOBSl 



Form lORT virord 
count 



WRSEL (lOBSJ 



I. Locate buffer 



ENTIN (lOM) 



Enter buffer Into 
regenerative clMln 



jsm, 



Reset MUc. 
tors 



(lOBS) 




TRUNC (lOBS) 



Set truncate mode 



Deiiermlne If buffer 
Il to be held 
(Cannot occur for 
copy( 



Tranjfer to "WRSEl 



RELES 



JIOBS2, 



Determine If held 
)uffer8 are lo be 
truncated 



^ SETWR 



•^™^ f^QW^ 



Form lORT word 

count 



jism. 



Locetc buffer 




^Ef■lH!ratlv• chain 



JiSfia 



COMXIT 



Common exit routioe 
to main program 





POCLRD 

flOBS) 




BCKBF flOBS) 


4 


PW1K5 






Reduce count of 
buffers la uic 


Adjurt pool 
buffer count 





CKcrv- (lOBS) 



CKcrv 



Determine If an- 
ottier buffer should 
be filled. (Assume 
no) 






SAVE 



(IQEX) 



Entry to trap routine, 
save perUnect condi- 
tlons 



XTRAP 



Trrnrrrr 



(lOEX) 



1. Check for I/O check 
anJ score channel 

2. Oetermfne what 



t. Adjust tape positioD 
(increase UCBW3 re- 
cord count by 1) 

2. Prepare Co enter 
ielecC toutinc 



PEP 



S£i3^ 



Ji2&n 



Check for reUumiaocy 
nitiate corrective 
neanire* if necessary 



ISSUE- 



Resct Kdmdaocy 
count CO Kro (not 
oecesnry for ipeci- 
£l*d conditions) 



ISSUE 1 



lOBS) 



Perform wrap up for this 

trap 

1. Update request chain 

2. Move filled buffer 
from lecjuest to 

sync chain 



1. NolM neord 
haadliHg 



ss_ 



£G_ 



■fKUL 



Initiate next operadon 

for this channel: 

t. If addltioaal requests 
lor the unit satisfy 
next Mquect in chain 

2. If aonc foe thit unit 
scan UCB's for re- 
(|M«t waiting for 

sads^ that oa«. 



TRAP SEQUENCE under following conditions: 

1. RZAD operation 

2. CWT 

3. No errors or EOF /EOT 

4. Only 1 request for present unit, but read 
requests waiting for another 



(lOEX) 



Scan UCB's for one 

waiting with request 

(UCBWZXestabllsh 



_ priority I 



.UAUti ^ 



tSStJF 1 



f[QBS> 



»*c up leiect opera- 
tiOD* and execute 
them. 



jjS^^ 



NCX>P for lead 



^SOL 



_ffOEX) 



Exit to main prognm 
nsOHe cdndltioDa 



_(ICEjO 



Eritr> tt' iraj' routine. 
J.ivc certincni conJi- 



XTR.AP ^ f flOEX 



\trap: 



1. Check lorl/C 
check 

2. Store channel In- 
fomia tion 

3. Detemiine what 
caused trap 

-♦. citeck lor EOT 

5. Check word count 
for noise record 
length 

6. Adjust tape poii- 
tion (increase 
UCBW3 record coua 
by 1.; 

7. Prepare to enter 
select routine 



Reset redundancy 
count to 2en> 
necessary for 
cificd conditions) 



mcy I 

(not I 

spe- I 



1. NoiK record 
handling 



ISSLtE- 



flOBS] 



. ISSUE I 



Pcrfonii wrap-up for 
litis trap, 

1. Upilaie re<piest cha 

2. Restore lORT lor 
oeu litiie bufJer ts 
used. 



^ 



-SCL 



(tOEX) 



Initiate next opera* 
tion for this channel: 

1. If additional re- 
questi for this urk, 
satisfy next request 
in chain. 

2. If none for this 
unit scan UCB's 
for request waiting 
foe another unit 

and satisfy that one. 




TR.\P SEsUJENCE under toll^iiu con- 
diticni: 

1. WRITE ci><rjiio« 

2. CWT 

3. Nc ern. r» or ECF/FOT 

4. Only I rctiuesi lor present unit, l-ot 
tev|ucstj w;ii!iiis tor .inotlior 



h 



(lOBS) 



Return bulfcr to jkjoI, 
uiKLaie pool chain. 



2SZS: 



(IQEX) 



Scan UCB'l for one 
waiting with request 
(UC8W2) (enabliih 



I '"'T- 



IS^liF, I ■ 



flOBSI 



Setup select operation 
aad execute chcm 



^ "°^^' , 



Exit to main pio- 
gntm- restore condi- 
tions 



rVTIY 



JJOiil. 



miMX. 



Commo* •nay to 
routlni*. Pafofm Inl' 



•Ktr f • (ICM) 



u. w-v%l. 



Cluck u> U€ il IIU 
(I unUbvllid KBd ep«fi 



ClMch lo M> tl lil« 
Il output 



Tranifcf le wlbct 
fOullM (iion'<Ui«) 



TiX WW.* 

RI nu,,toT 

Cofittttlintai 

t. OHirtit fll* 

'. Iiiton la M4MII tiMta 

I. lalltltllillM 



VihC llOU) 



T 



Id m laMMutf 
ladlcatfon 



Cbacli (or EOT 



££M£2X 



COMMT 



i 



jj;v£a!__ii£Ul4 



Mtmk. 



Tfinlftr u 
•r In uM 



Ch«c)< ferwalU>K 
r«i|u«Ri ami 






ChKhfofflOT 



J 



Dalamilna Itbaflti 
It IS b« IhU 



TraiMtaf ta 

•WMU." 



lai rctwi « It- 



MtUI (lOM) 

■ J",.WFI!"'.'~T.:'., 

"Ft Dtumlm U kaU 
buffcrf *ni to bo 



^1 trunctHd 

scTwr (Id I) 




f 






IUmi ml'W. 



*g-fv "°"1 



J 



■AfTY 






(lOU) 



j^ i«t up MitCIVp- I 



HDirn '^P'Xl 



»' S«t lip MitCI 

VI «Mll«fM am4 
t- " " I ' 



■,,r*P",f, nP6?a 



n 



J 



NDSU1 



wUpMua" 

Immetlon 



1. Wriu EOT 

2. Wkit dU opcfttii 
•■nipUudIr lh«a 
chiek for nduadau >: 
twIIOT 

3. Adjuai Up poll 
tlott ceuou 

4. Chack for f*- . 
wouad peri be* 



FRCHX MOEX> 



rKwti. 



Whan ■ trap eeeurr 
ea tpaclfltd cmmi 
ttypail normal ttap' 

wTttfniimmadUta! 



J 



» PW%#W |MII MIWMf •••• afWill 



1 M IM (kMMl • 



ncHX (loex) 



JSSSC 



Ptapara lo oemf^ai 

iBtatmptad trap, 
thas traaiiar to 

trappint wMttoa 



nu 



tiossi 



-noB 



FllBI rti 
Mitoiy 



Commea OKlt toutlaa 







(IQBS) 



tNTRY 
i'KTRY I 
Common entry to 
routine. Perform* tnlil- 
tllutlon. 



WRITE T flOB5 



(.hrck to MC If lilc ope 1 



ffanifer to "RDWaT 

rouitne 



^-^ 



£Ui^ 



(lOBS) 



Find loci lion of 



TSX WWTl.4 




PZE nUf.eoB 




lOCD A,.S 




CendltleMi 




1. InltUi wrtw 




Z. EO>--0 





FtrjWRT T flOBSl 



RDWRTl, 



1. Exutct poo) locatloi 

2. Brln^ out IOCS 
commandi, »v« trani- 
iiili location and word 
count. 

3. Change lOCD to 
lOCT anil i«l dliconner 
In. I. 



1. Check buffer lor 
available wortli 

2. ReJucc locator •!<•- 
cremcnl (WDCT) 

3. Adjuil locator a<l<lrr 
(location of n««l wnnl) 

4. S«i up trannnbt loop 

5. TMMmU wordi froi 
locailtm i|tictlt«J le 
buffer 



Determine what to <k> 
at coiiiplalluti uf 
command (tarmlnair) 



CTBUT 



CTBUF t 



(lOBSl 



1. Check to ic» If 
bttlfer ii available 
In pool. 

2. Available hiffer 

3. Upaai* pool 




COMXIT 
COMXIT 



(IQES) 



Common exit rhiUbc 
to main program 



